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1 . Introduction 

1 .1 . What is Matchmaker? 

Matchmaker provides a mechanism for declarativcly defining a procedural interface for message-based 
communication between processes. This type of procedural interface to message-based communication is 
usually called a remote procedure call. Remote procedure calls in Accent can involve processes written in 
different languages; Matchmaker supports this capability. Once an interface has been declared, Matchmaker 
may be used to generate procedures for sending and receiving messages between processes written in any of 
the supported languages. Matchmaker does all the work of appropriately packing the procedure arguments 
into messages and extracting incoming procedure arguments from message fields. 

Matchmaker allows a programmer to write a server process and declare the types of all data to be exchanged 
between the server and its client processes. Based on those types, procedural interfaces arc declared for 
sending data between processes in messages. A client process would call a Matchmaker-generated procedure 
to make use of a server facility. This procedure would pack the procedural parameters into a message and 
send the message to the server process. The server process would receive the message, provide its service, and 
pack return data into a message to be sent back to the client process. The client process would return from the 
original procedure call with the data sent back from the server. Remote procedure call interfaces simplify and 
increase the reliability of writing message based code. 

1.2. Example 

In PERQ Pascal, to send a message to a server containing a 32-bit integer and a port, a hand coded program 
like this is necessary: 
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Function SendIt(SorvPort : Port; I : Long; 
P : Port ) : GeneralReturn ; 
type 

MyMessage = record 
head : Msg; 

IPCNam2 : TypeType; 
Arg2 : Long; 

IPCNam3 : TypeType; 
Arg3 : Port; 

end; 



var 

My Msg : MyMessage; 

begin 

with MyMsg.head do 
begin 

SlmpleMsg : s false; 
MsgSize := WordS1ze(MyMsg)*2; 
MsgType := NORMALMSG; 
RemotePort := ServPort; 
LocalPort := ReplyPort; 
ID := 10000; 
end ; 
with MyMsg do 
begin 

IPCNam2.LongInteger := #2000220002; 
Arg2 := I; 

IPCNam3.LojigInteger :» #2000220006; 
Arg3 : a P; 
end; 

Sendlt : a Send(MyMsg. head ,0 ,WAIT) ; 
end; 



An equivalent piece of code could be generated with these Matchmaker declarations: 
Interface foo = 10000; 

Message Sendlt( : port; I : Long; P : Port) : GR_Va1ue; 



4 September 1.984 



MATCHMAKKR: Till- ACCHNT RHMOTlv CALL PROCKDURK LANG U AG U - 3 

2. Overview 

This chapter describes what the Matchmaker language can do and how it works. 

2.1. What Does It Do? 

Matchmaker, a specialized compiler, accepts its own language and produces code for multiple target 
"machines". The target "machines" for Matchmaker code generators arc standard programming languages: 
C, Lisp, Pascal. 

The result of a compilation is source code for each target language. This code implements the same message 
interface to the declared service, independent of the language with which it will be used. 

2.2. A Declarative Language for Data Structures 

Matchmaker defines a set of data type primitives and constructors for declaring types and values and a set of 
rules for representing these declared types. For any Matchmaker type, the Matchmaker code generator for 
each language can generate a native type declaration for the desired representation. 

Any data types that are to be used by more than one language should be declared in the Matchmaker 
language. Then Matchmaker can be used to generate the appropriate types for each language. 

2.3. A Declarative Language for Remote Procedure Calls 

Matchmaker simplifies message passing by providing a set of message-based procedural linkages between 
processes. A number of classes of remote procedures can be declared. There are enough to cover almost all 
interactions between cooperating processes. 

2.4. Goals 

The main goals of Matchmaker are: 

1. to provide a self-contained language for specifying message level interfaces between cooperating 
Accent processes; 

2. to provide a language rich enough to express any data struc&ire that can be both efficiently 
represented in a message and reasonably represented in all target languages; and 

3. to generate efficient code. 
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3. General Language Structure 



3.1. Lexical Structure 



Identifiers 



Identifiers are represented as a string of letters, digits, and underscores. The first character 
may not be a digit. Case of identifiers is preserved as in the declaration, but identifiers are 
matched with case folded. 



Integers 



Decimal integers are represented as a string of decimal digits. Octal integers are 
represented as a '#' character followed by a string of octal digits. 



Strings 



Character strings are enclosed in double quotes (""). The literal double quote is 
represented by two of them. Strings cannot span lines. 



Characters 



Character constants are surrounded by single quotes("). The literal single quote is 
represented by a string of four single quotes. 



Comments 



Comments may be introduced at any lexical break with the exclamation point character (!) 
and continue to the end of the line. 



3.2. Kinds of Matchmaker Specifications 

There are two kinds of Matchmaker specification files: Types and Interface. 

3.2.1 . Types specifications 

Types specifications contain data structure declarations, but no code declarations: 

Types <SpecificationName>; 

where <SpccificationName> is an identifier for the specification. A Types specification must end with the 
keywords End Types. 

3.2.2. Interface specifications 

Interface specifications contain data structure declarations and code (call) declarations: 

Interface <SpecificationName> = <MsgIDbase> ; 
where: 

• <SpecificationName> is an identifier for the specification. 

• <MsgIDbase> is an expression that names the message id that is to be allocated to the first call 
declared. 
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Interface specifications must end with the keywords End Interface. 

3.3. Order of Declarations 

All Matchmaker source files (.mm) must have declarations in this order: 

1. Declare Interfaces or Types: Give name of specification, and, for Interface declaration, message 
id origin. Required. 

2. Declare Options: Give values for various options. Optional 

3. Declare Data: Can be Constant, Type, or Use declarations. Optional. 

4. Declare Calls: Used for declaring message-based calls. Required for Interface specifications; not 
* allowed for Types specifications. 

5. End Interface or End Types: End Interface for Interface specifications, or End Types for Types 
specifications. Required. 

3.4. Expressions 

Typed constant values are used in many different contexts throughout the Matchmaker language. Anywhere 
a literal constant (such as #400, "Carp", or 'a') can be used, a compile-timc constant expression can also be 
used. Since all Matchmaker expressions arc evaluated at the time the specification is compiled, compilc-time 
constant expressions will be referred to as "expressions". 

3.4.1. Primitive expressions 

The primitive building blocks for Matchmaker expressions are: 

Literals Any integer, string, or character literal 

Boolean Literals The prc-declared identifiers "True" or "False" 

Constant Names The identifier for any value declared in a "Constant" declaration 

Enumeration Names 

The identifier for any element of an enumerated type 

3.4.2. Expression operators 

The operators for combining expressions, in decreasing order of precedence are: 

( ... ) Specify evaluation order * / Mod 

Multiplication, Division, Modulus + - 

Addition, Subtraction (Either may be unary) = <> 

Equal, Not equal >>=<=< 

Order operators Not 

Boolean negation And 

Conjunction Or 

Disjunction 
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4. Data Declarations 

This chapter will cover the means of declaring typed values and data types in Matchmaker specifications. 

4.1. Constant Declarations 

Symbolic constant values may be declared to Matchmaker using the Constant keyword, followed by a list of 
declarations of the form: 

Name = Expression ; 

4.2. Built-in Constants 

The two boolean values True and False arc pre-declarcd in every Matchmaker specification. Their 
declarations arc equivalent to the declarations: 

Constant 
True is the same as 0 = 0; 
False is the same as 1 = 0; 

4.3. Type Declarations 

Named types may be declared to Matchmaker using the Type keyword, followed by a list of declarations of 
the form: 

Name = Type Specification ; 

Type Specification may either be a built-in data type, a previously declared type name, or a new type 
definition. For more information on new data type definition refer to the next chapter. 

4.3.1 . Examples 

Some examples of Type declarations are: 
Type 

Integer ■ Short; 

Bit23 = uns1gned[23] ; 

Complex ■ 
record 

Re : Real; 

Im : Real; 

end record; 

NewBoolean a (No, Yes); 

Type 

Fi1e_Data ■ array [*] of Byte; 
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NOTE: * is the token for a variable-sized array. 
4.3.2. Built-in types 

Matchmaker provides several types and classes of types which arc pre-declarcd for each specification. They 



are: 




Boolean 


A one bit logical quantity. 


Character 


An eight bit character type. 


Signed[n] 


An n bit signed integer, n defaults to 16 if the [n] is not specified. 


Unsigned[n] 


An n bit unsigned integer, n defaults to 16 if the [n] is not specified. 


n m 


A subrange type of the integers n to m inclusive. 



PERQ_String[n] An n byte string prefixed by a length byte and padded to a 16-bit boundary, n defaults to 
80 if [n] is omitted. 

Port, Port.Send, Port.Receive, PortOwnership, Port. All 





Message communication ports, with associated port rights. Port and Port_Send are 




synonyms. 


Real 


A 32 bit IEEE floating point numeric type. 


Byte 


A prc-declared 8 bit unsigned integer type. 


Short 


A pre-declared 16 bit signed integer type. 


Long 


A pre-declared 32 bit signed integer type. 



4.4. Use Declarations 

The Use declaration allows one Matchmaker specification to use data structure declarations from another. 
Constant, Type, and Use declarations can appear in any order with respect to one another. 

4.4.1. Syntax 

The syntax for the Use declaration is the keyword Use followed by specifications of the form: 

InterfaceName from "FileName" ; 

where InterfaceName is the declared interface name in the specification to be used by the current 
specification, and FileName is the filename for that specification without the ".mm" extension. (Language- 
specific declaration file names will also be derived from FileName). 



4 September 1984 



MATCHMAKER: TUP. ACCENT REMOTE CALL PROCEDURE LANGUAGE - 9 



The "use" chain is recursively expanded. In other words, if an interlace A uses declarations from interface B, 
and B uses interface C, then A may also use declarations from C. 



4.4.2. Examples 

Some examples of Use declarations are: 
Use 

Foo from "Foo"; 
Shoes from "Shoes"; 

Use 

Acclnt from "Accent"; 
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5. Defining New Data Types 

Matchmaker allows construction of new data types from existing ones. Matchmaker is a language for 
specifying message-based interfaces between processes, therefore only those types that can be efficiendy sent 
in messages arc supported. 

5.1 . Record Types 

A Record type is a group of one or more "fields" made up of an identifier and an associated data type. 

5.1.1. Syntax 

A Record type specification contains the keyword Record and one or more fields of the form: 
FieldName : FieldType ; 

followed by the keywords End Record. Each FieldName must be a valid identifier, and each FieldType must 
be a declared type name or built-in type= 

5.1 .2. Packed record types 

"Packed" record types are like ordinary record types, except that attempts arc made to "pack" several small 
fields together where possible, instead of always aligning them on 16-bit boundaries. The syntax for packed 
record types is the same as that for ordinary record types, except that the type keyword is "Packed Record." 

5.1 .3. Examples 

Some examples of Record specifications are: 
Type 

Couple ■ 
record 
Male : Person; 

Female : Person; 
end record; 

T1me_Rec s 
packed record 

Hours : 0 .. 23; 

Minutes : 0 .. 59; 

Seconds : 0 .. 59; 
end record; 
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5.1 .4. Restrictions 

Due to message passing restrictions, record field types must not be port types, pointer types, variable-sized 
array types, or union types. 

5.2. Array Types 

An Array type is a collection of some number of elements, all of the same data type. The number of elements 
may be fixed or may vary. 

5.2.1. Syntax 

An Array type specification is of the form: 

Array [size] of ElcmentTypc 

where Element! ype is a declared type name or built-in type, and size is either the token * for a variable-sized 
array or an integer expression giving the number of elements for a fixed-size array. 

5.2.2. Packed array type 

The "packed" array type is like the "array" type, except that attempts are made to "pack" several small 
elements together where possible, instead of always aligning them on 16-bit boundaries. The syntax for the 
"packed array" type is the "Packed Array" keyword. 

5.2.3. Examples 

Some examples of Array specifications are: 
Type 

Triple a array [3] of Note; 

Type 

Byte_Array = packed array [*] of Byte; 

5.2.4. Restrictions 

Array elements must not be of pointer, variable-size array, or union types. Variable-size arrays can be 1 
declared; however, only pointers to the arrays can be directly passed in messages, along with a size parameter 
giving the number of elements being passed. The number of elements must be positive (greater than zero) for 
fixed-size arrays. 
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5.3. Enumeration Type 

The Enumeration type provides a means of naming a set of related values and grouping those values together 
into a new type. The value of each name, if not specified, is provided by Matchmaker, beginning with zero 
and incrementing by one for each successive name. 

5.3^.1 . Syntax 

An Enumerated Type specification consists of a pair of parentheses enclosing a comma-separated list of 
enumeration elements of either the form: 

ElementName 

or: 

ElementName = ElementValue 

ElementNames without specified values are assigned sequential element values. Both kinds of elements may 
be mixed, as long as no value or name is duplicated. 

5.3.2. Examples 

Some examples of Enumeration specifications are: 
Type 

Tri_State ■ (Open, Closed, Floating); 

Return_Values a 
( 

OK - 1, 
Information, 
Take_Heed, 
Warning a 99, 
Error = 1000, 
Fata1_Error = 10000, 
Interna1_Error a -1 

)! 

5.3.3. Restrictions 

All enumeration type element values must be expressible as 16-bit signed integers. 
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5.4. Pointer Types 

Pointer types allow Matchmaker to pass a message by reference instead of directly including it into the 
message body. This is useful when passing variable-size arrays between processes, and occasionally for passing 
large fixed-size structures. (Do not use pointers to small structures, since at least one page of data is always 
passed regardless of the actual size.) 

5.4.1. Syntax 

A Pointer type specification is of the form: 
t BascType 

i 

where BaseType is a valid type specification. 

5.4.2. Examples 

Some examples of Pointer specifications are: 
Type 

Bytes ■ t Byte_Array; 

Ports ■ t array [*] of Port; 

Block_Ptr ° t Array [B1ock_S1ze] of B1ock_Elts; 

5.4.3. Restrictions 

Due to message passing restrictions, pointer base types must not be pointer types or union types. 

5.5. Union Types 

Union types provide a mechanism for passing data for which the ipc type number cannot be determined until 
run-time. This is useful only when the data is sometimes of a port type and sometimes a different port type, 
or is unstructured data. Only use a Union type when absolutely necessary. 

5.5.1. Syntax 

A Union type specification consists of a union head, of the form: 

Union <TagType> of 
followed by one or more fields of the form: 

Tag Value : ( FicldName : FieldType ) 
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terminated by the keywords End Union. The TagTypc must be an integer, character, boolean, or 
enumeration type. Each Tag Value must be an expression of type TagTypc. Each FieldName must be a valid 
identifier, and each FicldTypc must be a declared type name or built-in type. 



5.5.2. Examples 

Some examples of Union specifications are: 
Type 

PortRights = 

union <integer> of 

TypePtOwnership : (PtO 
TypePtReceive : (PtR 
TypePtAll : (PtA 

TypePt : (Pt: 

end union; 



Port_Ownership) ; 
Port_R8ceiv«) ; 
Port_A11); 
Port); 



Port_Or_Index a 
union <boo1ean> of 
False : (Port_Index 
True : (Port_Value 
end union; 



long) ; 
port) ; 



5.5.3. Restrictions 

Due to message passing restrictions, union field types must not be pointer types, variable-sized array types, or 
union types. 
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6. Messages/Remote Procedure Calls 

Matchmaker provides several different kinds of calls that can be made between processes. These calls vary in 
the way errors arc handled and in the directions in which the messages are sent. 

A Matchmaker call is declared in a manner similar to Pascal or Ada procedures and functions: the 
introductory keyword specifics the class of call being declared, the call name is given, and then a parameter 
list. The call is usually terminated by a type or keyword giving the return value for the call. 

6.1 . Classes of Matchmaker Calls 

For each of the individual Matchmaker declarations, CallNamc is an identifier giving the name of the 
message-based call being declared, and ArgList refers to a semicolon-separated list of call arguments. 

6.1 .1 . Remote.Procedure calls 

Remote.Procedure calls generate code that allows a user process to send request parameters to a server and to 
receive repi y parameters back from the server. 

Remote.Procedure declarations are of the form: 

Remote.Procedure CallName ( ArgList ) : ValueType ; 

If ValueType is the keyword GR_Value then CallName is a function with result type GencralReturn 
(signed[16]). This is a success/error code. If any errors occur sending or receiving the messages for CallName, 
then CallName will return the send or receive error code. 

If ValueType is the keyword No_Value then CallName is a procedure that does not return a value. If any 
errors occur sending or receiving the messages for CallName, tiicn Matchmaker signals the send or receive 
error code in a language-dependent response. 

If ValueType is neither GR.Value or No.Value then it must be a type name for a result type to be returned by 
CallName. In this case, CallName is a function returning a value of type ValueType. ValueType cannot be a 
variable-sized array or a union type. If any errors occur sending or receiving the messages for CallName, then 
Matchmaker signals the send or receive error code in a language-dependent response. 

A RemotePort argument is required for all Remote.Procedure calls. 
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6.1 .2. Message calls 

Message calls generate code for a user process that sends a single message to a server without a reply. 

Message declarations are of the form: 

Message CallNamc ( ArgList ) : ValueType ; 

If ValueType is the keyword GR_Valuc then CallName is a function with result type GencralReturn 
(signed[16]) on the user side and a valueless procedure on the server side. When an error occurs sending the 
message for CallNamc, then CallName returns the send error code to the user. Otherwise it returns Success. 

If ValueType is not GR_Valuc, then it must be the keyword No_ Value. When ValueType is No.Value, then 
CallName is a procedure that does not return a value. If any errors occur sending the message for CallName, 
then Matchmaker signals the send error code in a language-dependent response. 

A RemotePort argument is required for all Message calls. Only one-directional "In" parameters are allowed 
for Message calls (see 6.2, Call Arguments). 

6.1 .3. Serve r.Message calls 

Servcr_Messagc calls generate code for a server process that sends a single message to a user process. 

Server.Message declarations are of the form: 

Server.Message CallName ( ArgList) : ValueType ; 

If ValueType is the keyword GR_Value then CallName is a function with result type GencralReturn 
(signed[16]) on the server side and a valueless procedure on the user side. If any errors occur sending the 
message for CallName, CallNamc returns the send error code to the server. Otherwise it returns Success. 

If ValueType is not GR.Value, then it must be the keyword No_Value. When ValueType is No.Value, then 
CallName is a procedure that does not return a value. If any errors occur sending the message for CallName, 
then Matchmaker signals the send error code in a language-dependent response. 

A RemotePort argument is required for all Server.Message calls. Only one-directional "In" parameters are 
allowed for Server.Message calls. 
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6.1 .4. Alternate_Reply calls 

Altcrnatc_Rcply calls generate code for a server process that sends a reply message back to a user process in 
response to a Remote_Procedurc that was different than expected. Alternate_Reply messages return values 
from exception conditions that occur during execution. 

Altcrnatc.Reply declarations forms are: 

Alternate.Reply CallName ( ArgList ) ; 

Altcrnate.Reply CallName ; 

CallName is a language-dependent exception procedure that does not return a value. 

A RemotcPort argument is illegal for all Alternate.Reply calls. Only one-directional "In" parameters are 
allowed for Alternate.Reply calls. 

6.2. Call Arguments 

The Matchmaker call argument is: 

ArgUsage ArgName : ArgType 

where ArgUsage is a keyword specifying the argument to be used. ArgName is an identifier for the argument, 
and ArgType is the type of the argument. 

ArgUsage can specify a direction for a data argument (for example, ArgUsage might be the keyword InOut), 
or it can be a keyword giving the special usage for the argument (such as the RemotcPort keyword). 

6.2.1 . Data arguments 

Most arguments to Matchmaker calls provide data that is passed between processes. Data arguments are of 
the form: 

ArgDirection ArgParms : ArgType 
6.2.1 .1 . Argument directions 

ArgDirection specifies die direction(s) in which the data is sent It may be one of In, Out, InOut, or may be 
omitted. 

In arguments are only sent from the process initiating a call to the process handling the call. 
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Out arguments arc only sent from the process handing a call back to the process that initiated a 

call. 

InOut arguments arc sent in both directions. 

If ArgDircction is omitted, then In is assumed. Note: Some Matchmaker calls cannot accept Out or InOut 
arguments, because they specify single-directional exchanges. 

6.2.1 .2. Normal argument types and parameters 

ArgType is the name of a built-in or declared Matchmaker type appropriate for message passing. New types 
may not be implicitly declared when declaring calls. 

When ArgType does not specify a variable-size array or a union type, then ArgParms is an identifier 
corresponding to that argument. This is used for the corresponding target language parameter name for 
languages that require them. 



An example of simple call arguments is given by the declaration 

Remote_Proc9dure( 
RemotePort Server 
In Put 
Out Get 
InOut Both 

Imp! lad 

) 



port; ! (see 6.2.2) 

long; I In parameter 

long; I Out parameter 

boolean; ! InOut parameter 

character 1 In parameter 



Gr_Value; 

6.2.1 .3. Variable-size array type parameters 

When ArgType is the name for a pointer to a variable-size array (variable-size arrays cannot be passed; only 
pointers to them can be passed), then ArgParms must specify two parameter names. One is used to point to 
the array, and the other is used to dynamically indicate the number of elements in the array that is passed. 

ArgParms for dynamic arrays can either be of the form: 

PointerlD [ CountID ] 

or 

[ CountID ] PointerlD 

The first is preferred. The only difference between the two forms is the order in which target language 
parameters for the pointer and count values are passed. 
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For example, the following Matchmaker declaration fragments: 



type 



ByteVector = t packed array [*] of byte; 



Message Catt1e( 

: port; I (see 6.2.2) 

in Bytes [Byte_Count] : ByteVector I Dynamic array argument 
) : GR_Va1ue; 



would compile into the following C fragments: 
typedef Byte ByteVector[] ; 



GeneralReturn Catt1e(ServPort , 



Bytes, Byte_Count); 



Port ServPort; 

BytoVector Bytes; 

long Byte_Count; 

{ 



/* Pointer to array */ 
/* Element count */ 



} 



6.2.1 .4. Union type parameters 

When ArgType is the name for a union type, the ArgParms must specify two parameter names. One is the 
union tag (selector) value, and the other one passes the selected union field data. 

Form of the ArgParms for union types: 

DatalD < TaglD > 



< TaglD > DatalD 

The difference between the two forms is the order in which target language parameters for the field data and 
tag values are passed. 

For example, the following Matchmaker declaration fragments: 



or 
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type 

Port_Or_Index 3 
union <boolean> of 

False : (Port_Index : long); 
True : (Port_Value : port); 
end union; 

Remote_Procedure Wow( 

: port; ! (see 6.2.2) 

out PortOrlndex <Wh1ch0ne>: Port_Or_Index I Union argument 
) : No_Value; 



would compile into the following Pascal fragments: 
type 

Port_Or_Index ■ 

record case Boolean of 

False : (Port_Index : Long); 

True : (Port_Value : Port); 
end; 



procedure Wow( 

ServPort 
var PortOrlndex 
var WhlchOne 



port; 

Port_Or_Index; { Data value } 
Boolean); { Tag value } 



6.2.2. Special arguments 

Several Matchmaker calls can dynamically provide information about how the messages implementing the 
call are sent and received. The syntax for each of them is of the form: 

SpecialUsage ArgName : ArgType 

The ArgName is an identifier for a parameter, and ArgType is the type name for that parameter. Specific 
ArgType values are required for each value of SpecialUsage. 



SpecialUsage keywords: 

RemotePort Specify port to which request is sent. Required for all message classes except for 
Alternate.Reply. ArgType must be a port. 

LocalPort Specify port to which reply is sent. ArgType must be a port. 



MsgType Specify message type value for request message. Normal values are NormalMsg and 

EmergMsg (from Acccnt.mm). ArgType must be an integer. The default is Normal. 



ReplyType Specify message type value for reply message (for Rcmotc_Procedurc declarations). 

ReplyType is implicitly an Out parameter on the server side of an interface. Normal values 
are NormahVlsg and EmergMsg (from Accent.mm). ArgType must be an integer. The 
default is Normal. 



4 September 1984 



MATCHMAKER: TI IK ACCENT REMOTE CALL PROCEDURE LANGUAGE - 23 

ScndOption Specify the send option field for the request message. Normal values are Wait, DontWait, 
and Reply (from Acccnt.mm). ArgTypc must be a 16-bit integer. The default is Wait. 

Scnd.Timeout Specify the send timeout value for the request message. Values are in milliseconds, and a 
zero value means to wait indefinitely. ArgTypc must be a signed 32-bit integer. The 
default is Wait.Forcvcr (0). 

Rcceive.Timeout May be used to specify the receive timeout value for the reply message. Values are in 
milliseconds. A zero value means to wait indefinitely; -1 means return immediately if no 
message waiting. ArgTypc must be a signed 32-bit integer. The default is WaitForever (0). 

A special abbreviation specifics the RcmotcPort argument for a Matchmaker call. If both SpecialUsage and 
ArgName are omitted, the call is interpreted the same as: 

RemotePort ServPort : ArgType 
6.3. Defaults and Options 

Rather than passing special arguments to calls to specify every possible detail for every call, Matchmaker 
provides a set of defaults that cover most of the normal cases. These can generally be specified in one of two 
ways. Either the global default can be modified, or the default can be changed for a given message 
declaration. 

6.3.1 . Modifying global call defaults 

The defaults for all messages in an interface can be changed using Options declarations. Options declarations 
must come before any data structure (Constant, Type, or Use) declarations. 

An Options declaration consists of the Options keyword, followed by one or more declarations of the form: 

OptionKey = Option Value ; 
(See the next chapter for more on Options declarations.) 

6.3.2. Modifying local call defaults 

The defaults for any particular call can be changed by inserting one or more clauses of the form: 

, OptionKey = Option Value 
before the semicolon (;) terminating the call declaration. Such a clause is only effective for that specific call. 
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6.3.3. Listing of defaults 

The set of call defaults which can be changed arc a subset of the call special arguments. A list of the keys, 
defaults, and legal values are: 

Key Default Legal Values 

MsgType NormalMsg(= 0) 
NormalMsg, EmcrgencyMsg (0, 1) ReplyType 

NormalMsg (= 0) NormalMsg, EmcrgencyMsg (0, 1) Scnd.Option 

Wait ( = 0) Wait, DontWait, Reply (0..2) Send Timeout 

0 (Infinity) 32-bit signed integers 

(in milliseconds) Rcccive.Timeout 

0 (Infinity) 32-bit signed integers 

(in milliseconds) 
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7. Options and Message ID Declarations 

7.1. Options Declarations 

The Options declaration is used to change the default values of Matchmaker parameters. Options declarations 
must come before any data structure (Constant, Type, or Use) declarations. 

Options declarations only affect the specification in which they occur. Another specification that references 
the specification containing the Options declarations (for example, by a Use declaration) is not affected by the 
declarations. 

7.1.1. Syntax 

An Options declaration consists of the Options keyword and one or more declarations of the form: 
OptionKey = Option Value ; 

7.1 .2. Non-call argument options 

Options that use special arguments were listed in the previous chapter. Other options are explained here: 

* 

Protocol.Version Declare version number of code generator algorithm to be used. Currently only version 1 
is supported. 

Local.Ports Declare maximum number of ports that are allocated on the user side for outstanding calls 
to the server. A value of 0 requires all calls to specify a LocalPort special parameter. A 
value of * specifies no limit. Default is 1. 

Ports.Backlog Backlog value for any Local_Ports allocated. Default is 0 (requesting Accent default 
Backlog value). 

7.1 .3. Examples 

Options 

Prctoco'!_V9r'sion = 1; 

Loca1_Ports = 5; 

Rece1v8_Tim80ut ■ 100; ! Be impatient with it. 

7.2. Message ID Declarations 

Calls are normally assigned message ID numbers sequentially, in ascending order from the declared Interface 
ID number. Reply IDs for RcmoteJProcedure, Alternate.Rcply, and Servcr.Message calls have 100 added to 
them, to distinguish them from request IDs. 

There are instances, however, where it might be necessary to assign the IDs in another fashion. Matchmaker 
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provides two declarations strictly for manipulating the message ID numbers that arc assigned to declared 
calls. 

7.2.1. SkipJD declaration 

The SkipJD declaration increments the message ID counter exactly as a call declaration would. The primary 
purpose of the SkipJD declaration is to replace an obsolete call declaration in an interface file. 

The syntax for Skip.ID is: 

Skip.ID ; 

7.2.2. NextJD declaration 

The NextJD declaration is used to directly set the message ID counter to a new value. The new value should 
be within 100 of the initial value. 

The syntax for NextJD is: 

NextJD = NewValue ; 

where NewValue is an integer exp'ression. 



4 September 1984 



MATCHMAKER: THE ACCENT REMOTE CALL PROCEDURE LANGUAGE - 27 

8. Using Matchmaker 

This chapter describes how to use Matchmaker and code generated by Matchmaker. 
8.1 . Using a Generated Interface 

Matchmaker only generates code that allows parameters for kinds of calls to be passed between User and 
Server processes. The code implementing the calls and any code that uses the calls must be hand-coded. 

This section describes the specifics of writing code that is called from Matchmaker procedures and code that 
calls Matchmaker procedures. This section assumes that an interface called Prog has been declared. 

For a detailed example, please refer Section 11. 

8.1 .1 . Using Matchmaker user code 

The following applies to code written for the user side of a Matchmaker interface: 

• The procedure InitProg must be called before any other procedure from module ProgUser (user 
side code) to initialize ProgUser. 

• Any Message or Remote_Procedure can be called directly using appropriate target language 
calling conventions. 

• Code must be written by the user for any Alternatc_Reply calls declared to handle the 
Alternate.Reply and take appropriate actions when they occur. 

• The ProgDispatcher function may be called to decode parameters and to call the function 
implementing any Scrver_Message procedures declared in Prog. ProgDispatcher is passed a 
message. It returns true for messages it recognizes, and false for those it does not. 

• Code must be written by the user for each declared Scrver_Message call that takes appropriate 
action for the Server_Message. These routines are called by the ProgDispatcher function for 
appropriate messages. 

8.1 .2. Using Matchmaker server code 

The following applies to code written for the server side of a Matchmaker interface: 

• The implemcntor must write code to receive the message and then call the ProgServer function to 
decode message parameters and to call the function implementing any Message or 
Rernote.Procedure procedures declared in Prog for received messages. ProgServer must be passed 
both the message received and a reply message. It returns a true for messages it recognizes and 
false for those it does not. The reply message is sent unless the RetValue field of the call is 
NOREPLY. 

• The implemcntor must write code for each declared Message and the declared Remote_Proccdure 
call that implements the call. These routines are called by the ProgServer function for appropriate 
messages. 

• An Alternate_Reply message can reply to a Remote_Procedure request by signaling the 
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Altcrnatc_Rcply flag with appropriate parameters. Construct an alternate reply message for 
ProgScrver to return. 

• Any Scrvcr_Mcssagc may be directly called via appropriate target language calling conventions to 
pack and send the message. 



8.2. Matchmaker File Names 

The source file name for a Matchmaker specification named Prog should be: 
Prog.mm 

If a set of language-specific declarations for the specification are needed for a given language that norm 
uses the extension .ext, then those declarations should be in the file: 

Prog.mm-ext 

When compiled for a language using extension .ext, Matchmaker will then normally produce the files: 
o ProgDcfs.ext (Data structures) ProgUscr.ext (User side code) ProgServer.ext (Server side code) 

For example, the Time interface uses the following files: 
Time.mm Matchmaker source 

TimcDefs.pas Pascal types for time TimeUser.pas 

Pascal user interface to time server TimcServer.pas 

Pascal server interface for time server (The Time server is implemented in Pascal) 

Time.h C types for time TimeUser.c 

C user interface to time server 

TimeDefs.slisp Accent Lisp types for time TimeMsgDefs 

Accent Lisp types for time messages TimeUser.slisp 
Accent Lisp user interface to time server TimcUInit 
Load-time initialization forms for the time interface 

If language-specific declarations are needed, they are specified in the files: 

• Time.mm-pas (Pascal-specific declarations) Time.mm-c (C-specific declarations) Time.mm-slisp 
(Accent Lisp-specific declarations) 

Information specific to each language is discussed in Section 10. 
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8.3. Matchmaker Command Line Syntax 

Invoke Matchmaker with the command line: 

Matchmaker FileName -Langl = Optl ... -LangN=OptN 

vyhere FilcName is the name of the specification file to be compiled without the .mm extension. The Lang 
names are currently members of the set Pascal, C, and Accent Lisp. The Opt values must be members of the 
set: 

All Generate all files for Lang Defs 

Generate Defs file for Lang User 
Generate User file for Lang Server 
Generate Server file for Lang NoUser 
Generate all but User file for Lang NoServer 
Generate all but Server file for Lang 

The order of switches and the filename does not matter. Unique abbreviations for both switches and options 
are accepted. 

Other switches are: 

Help Display information about Matchmaker Verbose 

Display progress information Quiet 
Do not display progress information Errorfile 
Generate a file of error messages NoErrorflle 
Do not generate a file of error messages Loop 
Allow additional specification files to be processed before exiting 
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9. A BNF for the Matchmaker Language 

The following is a BNF description of Che Matchmaker language. Conventions used arc as follows: 

• Literal tokens arc enclosed in double quotes (""). 

• Optional productions are enclosed in square brackets ([]). 

• Three periods (...) denote optional repetition. 

• A vertical bar (|) denotes choices between productions. 

• Braces ({}) enclose a group of required productions. 

• Parcns(()) enclose comments. 



9.1. Interface and Options Definitions 



Interface 



Interf ace_Decl 

Types_Dec1 
Interf ace_Name 
Msg__ID_Base 
Rep1y_Base 
End_Interf ace 

End_Types 
Qptions_Dscl 



• = Interf ace_Decl 

[0ptions_Dec1]. . . 
[Data_Dec1]. . . 
[Msg_Dec1]. . . 
End_Interf ace | 
Types_Decl 

[Options_Dec1] . . . 
[DataJDecl] . . . 
End_Typss 

■ "Interface" Interf ace_Mame " a " 
Msg_ID_Base ";" 

■ "Types" Interf ace_Name ";" 

■ Identifier 

a Integer_Constant 
» Integer_Constant 
a » End .. "interface" 
« "End" "Types" 

- "Options" {Option_Decl ";"}... 
(not yet implemented) 



Option_Decl ::- Msg_Options } Msg_Name_Options | 

Protocol_Options 

Msg_Name_Options Msg_Name_Key "=»" Identifier 

(not yet implemented) 



Msg_Name_Ke 



"Server_Pref 1x" | "User_Pref ix" 



Protoco1_0ptions ::= "Protocol_Version" a Integer_Constant 

(not yet implemented) 
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9.2. Datatype Definitions 

Data_Decl ::= Use_Dec1 | Type_Dec1 | Constant_Decl 



Use_Decl 

S1ngle_Use 

Fne_Name 

Constant_Dec1 

S1ng1e_Constant 

Cons tan t_Name 

TypeJDecl 

Sin'gle_Type 

Type_Name 



= "Use" Single_Use. . . 

= Interf ace_Nams "From" FIT a_Name ";" 

■ Str1ng_Constant 

= "Constant" Sing1e_Constant . . . 

■ Constant_Name "=" Constant_£xpr ";" 
= Identifier 

■ "Type" S1ngle_Type. . . 

Type Name " = " Type_Spec1f 1cat1on 
["," Type_0pt Ion], . . ";" 

: := Identifier 



Type_Spec1f 1cat1on ::= Type_Name | Bu11t1n_Type j 
Array_Type | Record_Type J Pointer_Type j 
Enum8ration_Type | Un1on_Type 

Bu1lt1n_Type "Boolean" | "Character" | "Real" | 

Integer_Type | Str1ng_Type j Port_Type 



Integer_Type 

Subrange_Type 
Port_Type 

Str1ng_Type 



= "Unsigned" ["[" Integer_Constant "]"] | 
"Signed" ["[" Integer_Constant "]"] \ 
Subrange_Type | "Long" | "Short" | 
"Byte" 

::■ Integer_Constant ".." Integer_Constant 

- "Port" | "Port_Send" | "Port_Raceive" | 
"Port_Ownership" | "Port_All" 

:» "PERQ_String" ["[" Integer_Constant "]"] 



Array_Type ::=» [Packing] "Array" "[" Array_S1ze "]" 

"Of" Type_Spec1f 1cat1on 

Array_S1ze Integar_Constant | "*" 

Packing "Packed" | "Unpacked" 
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Record_Type ::= [Packing] "Record" Record_Component . . . 

"End" "Record" 

Record_Component 

Field_Identifier ":" Type_Specif ication ";" 
F1eld_Identif ier ::= Identifier 
Pointer_Type ::= "t" Type_Specif 1cat1on 

Enumeration_Type "(" Enum_List ")" 

Enum_L1st ::= Imp! 1cit_Enum_List | Expl icit_Enum_List 
Imp! icit_Enum_List ::= Enum_Name ["," Enum_Name] . . . 
Expl icit_Enum_List : : = Enum_Element ["," Enum_Element] . . . 
Enum_£lement ::= Enum_Name ["=" Integer_Constant] 
Enum_Name :: a Identifier 

Union_Type "Union; "<" Union_Se1ector_Type ">" 

"Of" Union_Component. . . "End" "Union" 

Union_Selector_Type : : = Type_Specif ication 

Union_Component ::= Union_Tag ":" "(" [Record_Component] 

ti ^ m tt , » 

Union__Tag ::=» Constant_Expr | "Otherwise" 

Type_Option = "TypeType" " a " Integer_Constant | 

"Deallocate" ["=" Boolean_Constant] j 
"NoDeal locate" | 

"Element_S1ze" " s " Integer_Constant j 
"Element_Count" "=" Integer_Constant 

9.3. Message Definitions 

Msg_Decl ::=» Msg_Code_Decl | Msg_ID_Dacl 

Msg_Code_Decl Msg_3ody ["," Msg_Options] . . . ";" 

Msg_Body ::= To_Server j From_Server | 

Domn+ a Dr>n/«oHiiPQ I iltopna+o Ronlu 

KVIIIV W W I j >IIUV>llIV» w w 1 1 w ft i J 

Msg_Options ::= Msg_Param_Key Integer_Constant | 

Msg_CodeGen_Key "■" Boolean_Constant (NYI) 

To_Server ::= "Message" Arg_List ":" Msg_Result 
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Remote_Procedure 

Al ternate_Reply 

From_Server 

Arg_L1st 

Msg_Arg 

Data_Arg 

Arg_D1rect1on 



"Remot9_Procedure" Arg_List ":" Msg_Resu1t 
a "AT ternate_Rep1y" [Arg_List] 

■ "Server_Message" Arg_L1st 

= "(" Msg_Arg [";" Msg_Arg]... ")" 

■ Data_Arg | Special_Arg 

[Arg_Direction] Data_Arg_Spec ; 
= "In" | "Out" | "InOut" 



Data_Arg_Spec ::= Simp1e_Arg_Spec | Variable_Arg_Spec | 

Un1on_Arg_Spec 



S1mple_Arg_Spec 
Var1ab1e_Arg_Spec 

Un1on_Arg_Spec 



: : 3 Arg_Name " : " Arg_Type 

Arg_Name "[" Arg_Cnt_Name "]" ":" Arg_Type | 
Arg_Cnt_Name "]" Arg_Name ":" Arg_Type 

::= Arg_Name "<" Se1ector_Nam9 ">" ":" Arg_Type | 
"<" Se1ector_Name ">" Arg_Name ":" Arg_Type 



Spec1al_Arg ::= Spec1al_Usage Arg_Mame ":" Arg_Type | 

" :" Arg_Type 

SpedalJJsage ::= Port_Usage_Key | Msg_Param_Key 
Port_Usage_Key ::= "RemotePort" | "Local Port" 



Msg_Param_Koy 

Msg_CodeGen_Key 

Arg_Cnt_Name 

SelectorJIame 

A.rg_Name 

Apg_Type 

Msg_ID_Dac1 



"MsgType" | "Send_0pt1on" | 
"Send_T1meout" | "Recel ve_T1meout" 



■ "Asynchronous" ["User" j "Server"] 

a Arg_Name 

a Arg_Name 

= Identifier 

a Type_Name [ "," Type_0pt1on]. . . 

- "Sk1p_ID" ";" | 

"Next.ID" "=" Integer_Constant ";" 



4 September 1984 



MATCHMAKER: THE ACCENT REMOTE CALL. PROCEDURE LANGUAGE - 35 



9.4. Expression Syntax 
Constant_Expr 

Integer_Constant 

Boolean_Constant 

Char acter_Const ant 

Str1ng_Constant 

Enumeration_Constant 

Or_CTCE 
And_CTCE 
Not_CTCE 
Relational CTCE 



0R_CTCE (Valid types context dependent) 

Adding_CTCE (Must be integer valued) 

Or_CTCE (Must be boolean valued) 

Primary_CTCE (Must be character valued) 

Pr1mary_CTCE (Must be string valued) 

Primary_CTCE (Must result in a declared 
Enum_Name Identifier) 

And_CTCE ["Or" And_CTCE] . . . 

Not.CTCE ["And" Not_CTCE] . . . 

["Not"] Relational_CTCE 

Equal ity_CTCE 

[ {">" | ">=" j "<•" | "<" } 
Equal ity_CTCE 



Equal ity_CTCE ::= Add1ng_CTCE [ {"= M | "<>"} Adding_CTCE] . . . 
Adding_CTCE : 



Multiplying_CTCE 



Primary_CTCE 



[■{«+» j «-nj] Multiplying_CTCE 

[{{"+" | "-"} Multiplying_CTCE]. . . 

Primary CTCE 

j » /n j » Mod «} primary CTCE]. 

Identifier J Constant_Lexeme | 
"(" Or.CTCE ")" 



9.5. Lexical Definitions 
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Constant_Lexeme 

0ctal_L1teral 

Dec1mal_L1teral 
Str1ng_L1teral 

Character_L1teral 

Boo.lean_L1 teral 
Identifier 



- 0ctal_L1teral j Decimal_Li teral | 
String_Li teral | Character_L1 teral | 
Boolean_Literal 

! "#" followed by a non-empty octal 
digit string 

= A non-empty decimal digit string 

= A character string enclosed 1n double 
quotes. A double quote may be 
represented by two. 

::= A character enclosed 1n single quotes. 
A single quote may be represented 
by two. 

"True" | "False" 

! A string composed of letters, digits 

the underscore character, not starting 
with a digit. Identifiers are matched 
in a non-case-sensi tive manner. 



At any lexical break, comments can be inserted as: 



"!" comment text <End_Of_ Line> 
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10. Information Specific to Each Code Generator 

10.1. Pascal 

To import files into a Matchmaker-generated Pascal user or server file, create a file named 
FOO.mm-pas 

where FOO is the name of the interface declared at the beginning of the Matchmaker declaration file. The 

contents of FOO.mm-pas should look like: 

(1n-packag9 "MM-PASCAL-GEN" ) 
(simports "fUel") 
(simports "file2") 
(uimports "f ile3") 
(ulmports "file4") 
(Imports "fUeS") 
(imports "file6") 

In this example the files filei.pas, file2.pas, filc5.pas, and file6.pas will be imported into FOOScrver.pas, and 
files number 3, 4, 5, and 6 will be imported into FOOUser.pas. 

10.2. C 

Using Matchmaker with die C language works the same as with Pascal except: 

1. (In-package "MM-PASCAL-GEN") becomes (in-package "MM-C-GEN"). 

2. Filenames have the extension .c instead of .pas. 

3. If the module name and filename are not the same, you should state both, as in: 

(imports "ModuleName" "FileName") 
Otherwise, Matchmaker assumes the module and file have the same name. 

10.3. Lisp 

Using Matchmaker with die Accent Lisp language works the same as with Pascal except: 

1. The source file in die above example would be named FOO.mm-slisp. 

2. The contents of the source rile would be: 

(in-package "MM-LISP-GEN") 

<-arbitrary Lisp expressions to be evaluated->) 

For more information, sec the Accent Lisp Manual. 
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1 1 . Example 

In die example given in this section, Matchmaker generates the Typescript client interface for Pascal and Lisp 
and the Typescript server interface for Pascal. 

11.1. Source Files 

11.1.1. Typescript. mm 

This file is a language-independent interface specification. 
Interface TS=2800; 

1***************4********* *************************************** 



Author: Pedro Szekely 

Abstract: Matchmaker interface for Typescript 



Change 


log: 






Aug 


27 


1984 




Oopsl Had to change TSCharArray arg 

STSPutCharArray to 

a pTSCharArray , of course. 


Jul 


31 


1984 




Changed ptschararray arg to STSPutCharArray t 
a TSCharArray with a char_count arg for 
new MM format. 

Also changed daf of TSCharArray to be 
variable-sized for backwards compatibility. 


May 


26 


1984 


JmL 


Converted to new matchmaker format. 


Mov 


3 


1983 


dbg 


Change STSFlushOutput to a Procedure. Now it 
passes back a message to the user, so it can 
be used to synchronize Typescript with other 
operations on the typescript window. 


Oct 


28 


1983 


pas 


Rearranged STSPutCharArray to avoid 
recompilatlons 


Oct 


24 


1983 


pas 


Added STSPutCharArray, TSCharArray 


Oct 


17 


1983 


dbg 


Use allocated servgr message range (2800). 


Sep 


6 


1983 


dbg 


Import TSDefs on user side; TSTypes on server 


Sep 


3 


1983 


pas 


Add OpenWindow, FullOpenWIndow, SetEnv, 
GrabWindou? 


Aug 


23 


1983 


pas 


Add GetStrlng, PutStMng 


Aug 


9 


1983 


pas 


Created 



use Acdnt from "accent"; 

use Sapphdefs from "sapphdef s" ; 
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type 

Typescript ■ Port; 

TSStr1ng256 = Perq_String[265] ; 

TSCharArray = packed array[*] of Character; 

pTSCharArray ■ t TSCharArray; 



Remote_Procedure STS0pen(: Port; vp: VlewPort; env: Port): Typescript; 

Remote_Procedure STSOpenWindow( : Port; 

w: Window; 

env: Port 

): Typescript; 



Remote_Procedure STSFullOpen( : Port; 

vp : VlewPort; 

env : Port; 

fontName : TSStr1ng256; 

doWrap : Boolean; 

dlspPages : Integer 
): Typescript; 

Remote_Procedure STSFull0penW1ndow( : Port; 

w : Window; 

env : Port; 

fontName : TSStr1ng266; 

doWrap : Boolean; 

dispPages : Integer 



): Typescript; 
Remote_Procedure STSFullL1ne( : Typescript): Boolean; 
Remote_Procedure STSGetChar( : Typescript): Character; 
Remote_Procedure STSGotString( : Typescript): TSStr1ng266; 
Message STSPutChar(: Typescript; ch: Character) :No_Value; 
Message STSPutString(: Typescript; s: TSStr1ng266) :No_Value; 
Message STSFlushInput( : Typescript) :No_Value; 
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Remote_Proc8dure STSF1ush0utput( : Typescript) :No_Va1ue; 

luse for synchronization 

Message STSChangeEnv( : Typescript; env: Port) :No_Va"lue; 

Remote_Procedure STSGrabWindow( : Typescript; kPort: Port): Window; 

Message STSPutCharArray( : Typescript; 

chars [char_count] : pTSCharArray ; 
firstCh: Integer; 
lastCh: Integer 
) :No_Value; 

end Interface 



1 1 .1 .2. Ts.mm-pas 

This file contains Pascal-specific declarations, 
(in-package "MM-PASCAL-GEN") 
(s imports "TSTypes") 
(simports "STypescMpt") 



11.2. Matchmaker-Produced Files 



1 1 .2.1 . TsDefs.pas 

This file contains Pascal types. 
Module TSDefs; 

Exports 

Imports BuiltinDefs from BulltinDefs; 
Imports AccintDefs from AcdntDefs; 
Imports SdefsDefs from SdefsDefs; 

type 

Typescript ■ port; 

TSString265 = string[255]; 

TSCharArray * packed array [0 .. 0] of char; 

pTSCharArray ■ tTSCharArray ; 

Private 

Procedure Bug; 
begin end. 
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1 1 .2.2. TsUser.pas 

This file is the Pascal user interface. 
Module TS; 

£ > j Exports { < } 

Imports Acclnt from AccintUser; 
Imports TSDefs from TSDefs; 

Procedure In1tTS(Rport : port); 

Function STS0pen( 

ServPort : Port; 

vp : Viewport; 

env : port): Typescript; 
Function STS0penW1ndow( 

ServPort : Port; 

w : Window; 

env : port): Typescript; 

Function STSFuHOpen( 
ServPort : Port; 
vp : Viewport; 
env : port; 

fontName : TSString266; 

doWrap : boolean; 

dispPages : Integar): Typescript; 

Function STSFull0penW1ndow( 
ServPort : Port; 
w : Window; 
env : port; 

fontName : TSString265; 

doWrap : boolean; 

dispPages : Integer): Typescript; 

Function STSFullL1ne( 

ServPort : Port): boolean; 

Function STSGetChar( 

ServPort : Port): char; 

Function STSGetString( 

ServPort : Port): TSString265; 

Procedure STSPutChar( 
ServPort : Port; 
ch : char); 
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Procedure STSPutString( 
ServPort : Port; 
s : TSStr1ng255) ; 

Procedure STSF1ushInput( 
ServPort : Port); 

Procedure STSF1ush0utput( 
ServPort : Port); 

Procedure STSChangeEnv( 
ServPort : Port; 
env : port); 

Function STSGrabW1ndow( 
ServPort : Port; 
kPort : port): Window; 

Procedure STSPutCharArray( 
ServPort : Port; 
chars : pTSCharArray ; 
char_count : long; 
flrstCh : Integer; 
lastCh : Integer); 

Function TSAsynch(InP: Pointer): boolean; 

{ > } Private { < } 

Imports AccCall from AccCall ; 
Imports Pascallnlt from PascaHnlt; 
type 
DumMsg a record 
head : Msg; 

body: array [0..1023] of Integer 
end; 

ptrDumMsg ■ tDumMsg; 
var 

ReplyPort : Port; 

GR : GeneralReturn; 

ReP : ptrDumMsg; 

Procedure TSExceptlons; 
forward; 
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Procedure InitTS(Rport : port); 
begin 

1f RPort = NunPort then 
begin 

GR: =A11ocatePort( Kernel Port , Reply Port , 5) ; 
1f GROSuccess then Rep1yPort:=DataPort 
end 

else ReplyPort : *RPort; 
new(ReP) 
end; 



Function STS0pen( 
ServPort : Port; 
vp : Viewport; 
env : port): Typescript; 



type 
MyMessage 

head 

IPCNamZ 

Apg2 

IPCNam3 

Arg3 
end; 



= record 
Msg; 

TypeType; 
Viewport; 
TypeType; 
port 



type 

RepMessage = record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : GeneralReturn; 

IPCNam4 : TypeType; 

Arg4 : Typescript 
end; 

ptrRepMsg 3 tRepMessage; 



var 

MyMsg : MyMessage; 
RepMsgP : ptrRepMsg; 
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begin 

RepMsgP := RECAST ( ReP, ptrRepMsg) ; 
with MyMsg . head do 
begin 

Simplemsg := FALSE; 
MsgS1ze:= 38; 
MsgType:= NormalMsg; 
RemotePort := ServPort; 
LocalPort := ReplyPort; 
ID := 2800 
end; 
with MyMsg do 
begin 

IPCNam2.InL1ne := TRUE; 
IPCNam2. Deallocate := FALSE; 
IPCNam2.LongForm := FALSE; 
IPCNam2.TypeName := 6; 
IPCNam2.TypeSizeInBits := 32; 
IPCNam2.Num0bjeets : a 1; 
Arg2 := vp; 

IPCNam3.InL1ne := TRUE; 
IPCNam3. Deallocate := FALSE; 
IPCNam3.LongForm :« FALSE; 
IPCNam3.TypeName : a 6; 
IPCNam3.TypeS1zeInBits : = 32; 
IPCNamS.NumObjects i; 
Arg3 : a env; 
end; 

with RepMsgPt.head do 
begin 

MsgSize :» WordSize(DumMsg)*2; 
LocalPort := ReplyPort 
end; 

GR := Send (MyMsg. head, 0, WAIT) ; 
1f GR <> Success then 
begin 
Raise GRError(GR); 
exit(STSOpen) 
end; 

GR :» Recel ve(RepMsgP* . head , 0 , LOCALPT , RECEIVEIT) ; 
If GR <> Success then 
begin 
Raise GRError(GR); 
exlt(STSOpen) 
end; 
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with RepMsgPt do 
begin 

If head. ID <> 2900 then 
begin 

TSExceptions ; 
exlt(STSOpen) 
end ; 

1f RetCodeType.TypeName <> TYPEINT16 then 
begin 

Raise GRError(BADREPLY); 
exlt(STSOpen) 
end; 

1f (RetCode <> Success) then 
begin 

Raise GRError(BadReply) ; 
Exlt(STSOpen) 
end; 

1f IPCNam4.TypeName <> 6 then 
begin 

Raise GRError(BadReply) ; 
exlt(STSOpen) 
end; 

STSOpen Arg4; 
end; 
end; 

Function STS0penW1ndow( 
ServPort : Port; 
w : Window; 

env : port): Typescript; 

type 

MyMessage ■ record 

head : Msg; 

IPCNam2 : TypeType; 

Arg2 : Window; 

IPCNam3 : TypeType; 

Arg3 : port 
end; 

type 

RepMessage * record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : GeneralReturn ; 

IPCNam4 : TypeType; 

Arg4 : Typescript 
end; 

ptrRepMsg B tRepMessage; 
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var 

MyMsg : MyMessage; 
RepMsgP : ptrRepMsg; 

begin 

RepMsgP := RECAST(ReP,ptrRepMsg) ; 
with MyMsg. head do 
begin 

Slmplemsg :» FALSE; 

MsgSize:* 38; 

MsgType: 3 NormalMsg; 

RemotePort :* ServPort; 

LocalPort := ReplyPort; 

ID := 2801 
end ; 
with MyMsg do 
begin 

IPCNam2.InL1ne :» TRUE; 
IPCNam2. Deallocate FALSE; 
IPCNam2.LongForm ;= FALSE; 
IPCNam2.TypQName := 6; 
IPCNam2.TypeS1zeInB1ts := 32; 
IPCNam2.Num0bjects :=» 1; 
Arg2 := w; 

IPCNam3.InL1ne := TRUE; 
IPCNamS. Deallocate FALSE; 
IPCNam3.LongForm :« FALSE; 
IPCNam3.TypeName : a 6; 
IPCNam3.TypeS1zoInB1ts :* 32; 
IPCNam3.Num0bjects 1; 
Arg3 := env; 
end; 
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with RepMsgPt . head do 
begin 

MsgSIze := WordS1ze(DumMsg)*2; 
LocalPort := ReplyPort 
end; 

GR := Send(MyMsg. head, 0, WAIT) ; 
1f GR <> Success then 
begin 
Raise GRError(GR); 
exlt(STSOpenWindow) 
end; 

GR := Rece 1ve(RepMsgPt. head, 0, LOCALPT, RECEIVE IT) ; 
If GR <> Success then 
begin 
Raise GRError(GR); 
ex1t(STS0penW1ndow) 
end; 

with RepMsgPt do 
begin 

If head. ID <> 2901 then 
begin 

TSExceptions ; 

exit(STSOpanWlndow) 
end; 

if RetCodeType.TypeName <> TYPEINT16 then 
begin 

Raise GRError(BADREPLY) ; 
exit(STSOpenWlndow) 
end; 

1f (RetCode <> Success) then 
begin 

Raise GRError(BadReply) ; 
Exit(STSOpenWindow) 
end; 

if IPCNam4.TypeName <> 6 then 
begin 

Raise GRError(BadReply) ; 
exlt(STSOpenWindow) 
end; 

ST30penW1ndow : a Arg4; 
end; 
end; 
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Function STSFunOpen( 
ServPort : Port; 
vp : Viewport; 
env : port; 

fontName : TSStr1ng265; 

doWrap : boolean; 

dispPages : Integer): Typescript; 



type 



MyMessage 


■ record 


head 


Msg; 


IPCNam2 


TypeType; 


Arg2 


Viewport; 


IPCNam3 


TypeType; 


Arg3 


port; 


IPCNam4 


TypeType; 


Arg4 


TSString256; 


IPCNam6 


TypeType; 


Arg5 


boolean; 


IPCNam6 


TypeType; 


Arg6 


Integer 


end; 





type 

RepMessage - record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : GeneralReturn; 

IPCNam7 : TypeType; 

Arg7 : Typescript 
end; 

ptrRepMsg ■ tRepMessage; 
var 

MyMsg : MyMessage; 
RepMsgP : ptrRepMsg; 
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begin 

RepMsgP := RECAST (ReP , ptrRepMsg) ; 
with MyMsg.head do 
begin 
Slmplemsg := FALSE; 
MsgS1ze:= 310; 
MsgType:» NormalMsg; 
RemotePort := ServPort; 
LocalPort := ReplyPort; 
ID :» 2802 
end; 
with MyMsg do 
begin 

IPCNam2.InL1ne := TRUE; 
IPCNam2. Deallocate := FALSE; 
IPCNam2.LongForm : = FALSE; 
IPCNam2.TypeName : a 6; 
IPCNam2.TypeS1zeInB1ts : = 32; 
IPCNam2.NumObjects : 3 1; 
Arg2 := vp; 

IPCNam3.InL1ne :=« TRUE; 
IPCNam3. Deallocate := FALSE; 
IPCNam3.LongForm :* FALSE; 
IPCNam3.TypeName :» 6; 
IPCNam3.TypeSizeInB1ts : a 32; 

ir viiiamu • iiuiiivu javkg . " m , 

Arg3 env; 
IPCNam4.InL1ne TRUE; 
IPCNam4. Deallocate := FALSE; 
IPCNam4.LongForm FALSE; 
IPCNam4.TypeName : a 0; 
IPCNam4.TypeS1zeInB1ts ;=• 8; 
IPCNam4.Nunt0bjects : a 256; 
Arg4 fontName; 
IPCNam5.InL1ne :» TRUE; 
IPCNam6. Deal locate FALSE; 
IPCNam6.LongFopm :» FALSE; 
IPCNamS.TypeName :» 0; 
IPCNam6.TypeS1zeInB1ts 1; 
IPCNamB.NumObjects : a 1; 
Arg6 : a doVJrap; 
IPCNam6.InL1ne :» TRUE; 
IPCNam6. Deal locate := FALSE; 
IPCNam6.LongForm :« FALSE; 
IPCNam6.Typ9Name :» 1; 
IPCNam6.TypeS1zeInB1ts :» 16; 
IPCNam6.Num0bjects :=» 1; 
Arg6 dlspPages; 
end; 

with RepMsgPt . head do 
begin 

MsgSIze :» V/ordS1ze(DumMsg)*2; 
LocalPort := ReplyPort 
end; 
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GR := Send (MyMsg. head, 0, WAIT) ; 
1f GR <> Success then 
begin 

Raise GRError(GR) ; 

exit(STSFunOpen) 

end; 

GR := Recei ve(RepMsgPt . head , 0 , LOCALPT.RECEIVEIT) ; 
If GR <> Success then 
begin 
Raise GRError(GR) ; 
exit(STSFunOpen) 
end; 

with RepMsgP* do 
begin 

If head. ID <> 2902 then 
begin 

TSExceptions ; 

exit(STSFunOpen) 
end; 

1f RetCodeType.TypeName <> TYPEINT16 then 
begin 

Raise GRError(BADREPLY) ; 
exit(STSFullOpen) 
end; 

if (RetCode <> Success) then 
begin 

Raise GRError(BadReply) ; 
Ex1t(STSFul"I0pen) 
end; 

if IPCNam7.TypeName <> 6 then 
begin 

Raise GRError(BadReply) ; 
exit(STSFullOpen) 
end; 

STSFullOpen :» Arg7; 
end; 
end; 



4 September 1984 



MATCHMAKER: THE ACCENT Rl-MOTE CALL PROCEDURE LANGUAGE - 



Function STSFu1K)penW1ndow( 
ServPort : Port; 
w : Window; 
env : port; 

fontName : TSStr1ng265; 

doWrap : boolean; 

dlspPages : Integer): Typescript; 

type 

MyMessage ■ record 



head 


Msg; 


IPCNam2 


TypeType; 


Arg2 


Window; 


IPCNam3 


TypeType; 


Arg3 


port; 


IPCNam4 


TypeType; 


Arg4 


TSStr1ng255; 


IPCNamS 


TypeType; 


Arg6 


boolean; 


IPCNam6 


TypeType; 


Arg6 


Integer 



end; 
type 

RepMessage ■ record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : GeneralReturn; 

IPCNam7 : TypeType; 

Arg7 : Typescript 
end; 

pfcrRepMsg = tRepMessage; 
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var 

My Msg : My Mess age; 
RepMsgP : ptrRepMsg; 

begin 

RepMsgP := RECAST(ReP,ptrRepMsg) ; 
with MyMsg.head do 
begin 

Simplemsg := FALSE; 

MsgS1ze:= 310; 

MsgType:= NormalMsg; 

RemotePort := ServPort; 

LocalPort := ReplyPort; 

ID := 2803 
end; 
with MyMsg do 
begin 

IPCNam2.InL1ne := TRUE; 
IPCNam2. Deallocate := FALSE; 
IPCNam2.LongForm : = FALSE; 
IPCNam2.TypeName : a 6; 
IPCNam2.TypeSizaInB1ts := 32; 
IPCNam2.Num0bjects : = 1; 
Arg2 • s w; 

IPCNam3.InL1ne TRUE; 
IPCNam3. Deallocate :■ FALSE; 
IPCNam3.LongForm :- FALSE; 
IPCNam3.TypeName 8; 
IPCNam3.TypGS1zeInB1ts :« 32; 
IPCNam3.Num0bjects :■ 1; 
Arg3 := env; 
IPCNam4.InL1ne := TRUE; 
IPCNam4. Deallocate :=* FALSE; 
IPCNam4.LongForm : a FALSE; 
IPCNam4.TypeNam9 : a 0; 
IPCNam4.TypeS1zeInB1ts :» 8; 
IPCNam4.Num0bjects : = 266; 
Arg4 := fontName; 
IPCNam5.InL1ne TRUE; 
IPCNamS. Deal locate :=» FALSE; 
IPCNam5.LongForm := FALSE; 
IPCNamS. TypeName : a 0; 
IPCNamS. TypeS1zeInB1ts :■ .1; 
IPCNam5.Num0bjects 1; 
Arg6 := doWrap; 
IPCNam6.InL1ne TRUE; 
IPCNam6. Deallocate := FALSE; 
IPCNam6.LongForm :* FALSE; 
IPCNam6.TypeName :■ 1; 
IPCNam8.TypeS1zeInB1ts : a 16; 
IPCNam6.Num0bjacts :=» 1; 
Arg6 := dlspPages; 
end; 
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with RepMsgPt.head do 
begin 

MsgSIze := WordS1ze(DumMsg)*2 ; 
LocalPort := ReplyPort 
end; 

GR := Send(MyMsg . head , 0 , WAIT) ; 
1f GR <> Success then 
begin 
Raise GRError(GR) ; 
ex1t(STSFul10penW1ndow) 
end; 

GR := Rece1ve(RepMsgPt . head , 0 , LOCALPT , RECEIVEIT) ; 
If GR <> Success then 
begin 
Raise GRError(GR); 
ex1t(STSFul10penW1ndow) 
end; 

with RepMsgP* do 
begin 

If head. ID <> 2903 then 
begin 

TSExceptlons ; 

ex1t(STSFu110penW1ndow) 
end; 

1f RetCodeType.TypeName <> TYPEINT16 then 
begin 

Raise GREppop(BADREPLY); 
ex1t(STSFu1l0p.QnW1ndow) 
end; 

if (RetCode <> Success) then 
begin 

Raise GREpror(3adRep1y) ; 
Ex1t(STSFu1l0penW1ndow) 
end; 

1f IPCNam7.TypeName <> 6 then 
begin 

Raise GREppor(BadReply) ; 
ex1t(STSFull0penW1ndow) 
end; 

STSFunOpenWIndow Arg7; 
end; 
end; 
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Function STSFu1lL1ne( 

ServPort : Port): boolean; 

type 

MyMessage = record 

head : Msg 
end; 

type 

RepMessage = record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : GeneralReturn ; 

IPCNam2 : TypeType; 

Arg2 : boolean 
end; 

ptrRepMsg = tRepMessage; 
var 

MyMsg : MyMessage; 
RepMsgP : ptrRepMsg; 
begin 

RepMsgP := RECAST(ReP, ptrRepMsg) ; 
with MyMsg. head do 

uo y i ii 

Simplemsg : a TRUE; 

MsgSize:* 22; 

MsgType : = NormalMsg; 

RemotePort : a ServPort; 

LocalPort : a ReplyPort; 

ID := 28G4 
end; 
with MyMsg do 
begin 
end; 

with RepMsgP*. head do 
begin 

MsgSize := WordSize(DumMsg)*2; 
LocalPort := ReplyPort 
end; 

GR := Send(MyMsg.head,O t WAIT); 
if GR <> Success then 
begin 
Raise GRError(GR); 
flxit(STSFunMne) 
end; 

GR := Recei ve(RepMsgPt . head , 0 , LOCALPT , RECEIVEIT) ; 
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If GR <> Success then 
begin 

Raise GRError(GR); 

exlt(STSFullUne) 
end; 

with RepMsgPt do 
begin 

If head. ID <> 2904 then 
begin 

TSExceptlons; 

ex1t(STSFu11L1ne) 
end; 

if RetCodeType.TypeName <> TYPEINT16 then 
begin 

Raise GRError(BADREPLY); 
ex1t(STSFu1!L1ne) 
end; 

1f (RetCode <> Success) then 
begin 

Raise GRError(BadReply) ; 
Exlt(STSFullLine) 
end; 

1f IPCNam2.TypeName <> 0 then 
begin 

Raise GRError(BadReply) ; 
ex1t(STSFullL1ne) 
end; 

STSFullLine : a Arg2; 
end; 
end; 

Function STSGetChar( 

ServPort : Port): char; 

type 

MyMessage 3 record 

head : Msg 
end; 

type 

RepMessage = record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : GeneralReturn; 

IPCNam2 : TypeType; 

Arg2 : char 
end; 

ptrRepMsg * tRepMessage; 
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var 

MyMsg : MyMessage; 
RepMsgP : ptrRepMsg; 

begin 

RepMsgP := RECAST(ReP,ptrRepMsg) ; 
with MyMsg. head do 
begin 
Slmplemsg := TRUE; 
MsgSize:= 22; 
MsgType:= NormalMsg; 
RemotePort := ServPort; 
LocalPort := ReplyPort; 
ID := 2806 
end; 
with MyMsg do 
begin 
• end; 
with RepMsgPt.head do 
begin 

MsgSize := WordSiz9(DumMsg)*2; 
LocalPort := ReplyPort 
end; 

GR := Sond(MyMsg. head, 0, WAIT); 
1f GR <> Success then 
begin 
Raise GRError(GR); 
9xit(STSGatChar) 
end; 

GR Receive(RepMsgPt. head, 0, LOCALPT.RECEIVEIT) ; 
If GR <> Success then 
begin 
Raise GRError(GR); 
exit(STSGetChar) 
end; 
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with RepMsgPt do 
begin 

If head. ID <> 2906 then 
begin 

TSExceptions ; 
exlt(STSGetChar) 
end; 

if RetCodeType.TypeName <> TYPEINT16 then 
begin 

Raise GRError(BADREPLY) ; 
exit(STSGetChar) 
end; 

if (RetCode <> Success) then 
begin 

Raise GRError(BadReply) ; 
Exlt(STSGetChar) 
end; 

1f IPCNam2.TypeName <> 8 then 
begin 

Raise GRError(BadReply) ; 
exlt(STSGetChar) 
end; 

STSGetChar := Arg2; 
end; 
end; 

Function STSGetStr1ng( 

ServPort : Port): TSString26B; 

type 

MyMessage a record 

head : Msg 
end; 

type 

RepMessage 3 record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : General Return ; 

IPCNam2 : TypeType; 

Arg2 : TSString266 
end; 

ptrRepMsg a tRepMessage; 
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var 

MyMsg : MyMessage; 
RepMsgP : ptrRepMsg; 

begin 

RepMsgP := RECAST(ReP,ptrRepMsg) ; 
with MyMsg. head do 
begin 

Slmplemsg := TRUE; 

MsgSize:= 22; 

MsgType:= NormalMsg; 

RemotePort : s ServPort; 

LocalPort := ReplyPort; 

ID := 2806 
end; 
with MyMsg do 
begin 
end ; 

with RepMsgPt.head do 
begin 

MsgSIze : = WordS1ze(DumMsg)*2; 
LocalPort :« ReplyPort 

0 n d f 

GR := Send(MyMsg. head, 0, WAIT) ; 
if GR <> Success then 
begin 
Raise GRError(GR) ; 
exlt(STSGetString) 
end; 

GR := Recel ve( RepMsgPt . head , 0 , LOCALPT , RECEIVEIT) ; 
If GR <> Success then 
begin 
Raise GRError(GR); 
exit(STSGetString) 
end; 
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with RepMsgPt do 
begin 

If head. ID <> 2906 then 
begin 

TSExceptlons ; 

exlt(STSGetStrlng) 
end; 

If RetCodeType.TypeName <> TYPEINT16 then 
begin 

Raise GRError(BADREPLY); 
exit(STSGetStrlng) 
end; 

1f (RetCode <> Success) then 
begin 

Raise GRError(BadReply) ; 
Ex1t(STSGetStr1ng) 
end; 

1f IPCNam2.TypeName <> 0 then 
begin 

Raise GRError(BadReply) ; 
exlt(STSGetStrlng) 
end; 

STSGetStrlng := Arg2; 
end; 
end; 

Procedure STSPutChar( 
ServPort : Port; 
ch : char); 

type 

MyMessage = record 

head : Msg; 

IPCMam2 : TypeType; 

Arg2 : char 
end; 
type 

RepMessage ■ record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : GeneralReturn 
end; 

ptrRepMsg a tRepMessage; 
var 

UwUrn • UtiUaooana • 
I'ljfi'ivjy t 1'iji'iQMguyu | 

RepMsgP : ptrRepMsg; 
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begin 

RepMsgP := RECAST(ReP.ptrRepMsg) ; 
with MyMsg.head do 
begin 
Slmplemsg := TRUE; 
MsgS1ze:= 28; 
MsgType:= NormalMsg; 
RemotePort := ServPort; 
LocalPort := ReplyPort; 
ID := 2807 
end; 
with MyMsg do 
begin 

IPCNam2.InL1ne := TRUE; 
IPCNam2. Deallocate := FALSE; 
IPCNam2.LongForm := FALSE; 
IPCNam2.TypeName ;= 8; 
IPCNam2,TypeS1zeInB1ts := 8; 
IPCNam2.Num0bjects := 1; 
Arg2 := ch; 
end; 

GR := Send(MyMsg. head, 0, WAIT); 
1f GR <> Success then 
begin 
Raise GRError(GR); 

ov -iff CTCDn + f h^riA 

end ; 
end; 
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Procedure STSPutStr1ng( 
ServPort : Port; 
s : TSStr1ng265); 

type 

MyMessage ■ record 

head : Msg; 

IPCNam2 : TypeType; 

Arg2 : TSStr1ng256 
end; 

type 

RepMessage = record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : GeneralReturn 
end; 

ptrRepMsg = tRepMessage; 
var 

MyMsg : MyMessage; 
RepMsgP : ptrRepMsg; 

begin 

RepMsgP := RECAST(ReP , ptrRepMsg) ; 
with MyMsg. head do 
begin 
Slmplemsg := TRUE; 
MsgS1ze: a 282; 
MsgType:= Normal Msg; 
RemotePort : = ServPort; 
LocalPort : a ReplyPort; 
ID :- 2808 
end; 
with MyMsg do 
begin 

IPCNam2.InL1ne :« TRUE; 
IPCNam2. Deal locate := FALSE; 
IPCNam2.LongForm : = FALSE; 
IPCNann2.TypeNanie : = 0; 
IPCNam2.TypeS1zeInBits ;a 8; 
IPCNam2.Num0bjects :* 256; 
Arg2 s; 
end; 

GR :» Send(MyMsg.head,0 ( WAIT); 
1f GR <> Success then 
begin 
Raise GRError(GR); 
exit(STSPutStrlng) 
end; 
end; 
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Procedure STSF1ushInput( 
ServPort : Port); 

type 

MyMessage ■ record 

head : Msg 
end; 

type 

RepMessage ■ record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : GeneralReturn 
end; 

ptrRepMsg = tRepMessage; 
var 

MyMsg : MyMessage; 
RepMsgP : ptrRepMsg; 

begin 

RepMsgP : a RECAST(ReP, ptrRepMsg) ; 
with MyMsg. head do 
begin 

Simp] ems g : = TRUE; 

MsgSIze:* 22; 

MsgType:= NormalMsg; 

RemotePort := ServPort; 

LocalPort := ReplyPort; 

ID := 2809 
end; 
with MyMsg do 
begin 
end; 

GR := Send( MyMsg. head, 0, WAIT) ; 
1f GR <> Success then 
begin 
Raise GRError(GR); 
exlt(STSFIushlnput) 
end; 
end; 



4 September 1984 



MATCHMAKER: HIE ACCEN T REMOTE CALL PROCEDURE LANGUAGE - 



Procedure STSF1ush0utput( 
ServPort : Port); 

type 

MyMessage 3 record 

head : Msg 
end; 

type 

RepMessage a record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : General Return 
end; 

ptrRepMsg a tRepMessage; 
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var 

MyMsg : MyMessage; 
RepMsgP : ptrRepMsg; 

begin 

RepMsgP := RECAST (ReP.ptrRepMsg) ; 
with MyMsg. head do 
begin 

Slmplemsg :» TRUE; 

MsgSIze:* 22; 

MsgType:= NormalMsg; 

RemotePort := ServPort; 

LocalPort : a ReplyPort; 

ID := 2810 
end; 
with MyMsg do 
begin 
end ; 

with RepMsgP*. head do 
begin 

MsgSIze :* WordS1ze(DumMsg)*2; 
LocalPort := ReplyPort 

end ; 

GR :« Send (MyMsg. head, 0, WAIT) ; 
1f GR <> Success then 
begin 
Raise GRError(GR); 
exlt(STSFlushOutput) 
end; 

GR := Recel ve( RepMsgP* . head , 0 , LOCALPT , RECEIVEIT) ; 
If GR <> Success then 
begin 
Raise GRError(GR); 
exlt(STSFlushOutput) 
end; 

with RepMsgP* do 
begin 

If head. ID <> 2910 then 
begin 

TSExceptlons ; 

exlt(STSFlushOutput) 
end; 

1f RetCodeType.TypeName <> TYPEINT16 then 
begin 

Raise GRError(BADREPLY); 
exit(STSFlushOutput) 
end; 

1f (RetCode <> Success) then 
begin 

Raise GRError(BadReply) ; 
Exlt(STSFlushOutput) 
end; 
end; 
end; 
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Procedure STSChangeEnv( 
ServPort : Port; 
env : port); 

type 

MyMessage ■ record 

head : Msg; 

IPCNam2 : TypeType; 

Arg2 : port 
end; 

type 

RepMessage a record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : GeneralReturn 
end; 

ptrRepMsg ■ tRepMessage; 
var 

MyMsg : MyMessage; 
RepMsgP : ptrRepMsg; 

begin 

RepMsgP :» RECAST(ReP, ptrRepMsg) ; 
with MyMsg. head do 
begin 
Slmplemsg :» FALSE; 
MsgS1ze:« 30; 
MsgType:= NormalMsg; 
RemotePort : = ServPort; 
LocalPort :» ReplyPort; 
ID := 2811 
end; 
with MyMsg do 
begin 

IPCNam2.InL1ne :» TRUE; 
IPCNam2. Deallocate :» FALSE; 
IPCNam2.LongForm := FALSE; 
IPCNam2.TypeName :* 6; 
IPCNam2.TypeS1zeInB1ts :« 32; 
IPCNam2.Num0bjects :« 1; 
Arg2 :■ env; 
end; 

GR := SQnd(MyMsg.head,0,WAIT) ; 
1f GR <> Success then 
begin 
Raise GRError(GR); 
exlt(STSChangeEnv) 
end; 
end; 
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Function STSGrabW1ndow( 
ServPort : Port; 
kPort : port): Window; 

type 

MyMessage a record 

head : Msg; 

IPCNam2 : TypeType; 

Arg2 : port 
end; 

type 

RepMessage = record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : GeneralReturn ; 

IPCNam3 : TypeType; 

Arg3 : Window 
end; 

ptrRepMsg a tRepMessage; 
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var 

MyMsg : MyMessage; 
RepMsgP : ptrRepMsg; 

begin 

RepMsgP := RECAST (ReP.ptrRepMsg) ; 
with MyMsg. head do 
begin 
Slmplemsg :» FALSE; 
MsgS1ze: s 30; 
MsgType:= NormalMsg; 
RemotePort := ServPort; 
LocalPort := ReplyPort; 
ID := 2812 
end; 
with MyMsg do 
begin 

IPCNam2.InL1ne := TRUE; 
IPCNam2. Deallocate :« FALSE; 
IPCNam2.LongForm :« FALSE; 
IPCNam2.TypeName : a 6; 
IPCNam2.TypeS1zeInB1ts 32; 
IPCNam2.Num0bjects 1; 
Arg2 :=» kPort; 
end; 

with RepMsgPt.head do 
begin 

MsgSIze := WordS1ze(DumMsg)*2; 
LocalPort := ReplyPort 
end; 

GR :» Send(MyMsg. head, 0, WAIT) ; 
1f GR <> Success then 
begin 
Raise GRError(GR); 
ex1t(STSGrabW1ndow) 
end; 
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6R := Recei ve(RepMsgPt . head , 0 , LOCALPT , RECEIVE IT) ; 
If GR <> Success then 
begin 
Raise GRError(GR); 
exit(STSGrabWindow) 
end ; 

with RepMsgPt do 
begin 

If head. ID <> 2912 then 
begin 

TSExceptions ; 

exlt(STSGrabWindow) 
end; 

if RetCodeType.TypeName <> TYPEINT16 then 
begin 

Raise GRError(BADREPLY) ; 
exit(STSGrabWlndow) 
end; 

if (RetCode <> Success) then 
begin 

Raise GRError(BadReply) ; 
Exit(STSGrabWlndow) 
end; 

if IPCNamS . TypeName <> 6 then 
begin 

Raise GRError(BadReply) ; 
exit(STSGrabWindow) 
end; 

STSGrabVHndow :* Arg3; 
end; 
end; 
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Procedure STSPutCharArray( 
ServPort : Port; 
chars : pTSCharArray; 
char_count : long; 
f-irstCh : Integer; 
lastCh : Integer); 



type 
MyMessage 

head 

IPCNam2 

TName2 

TSize2 

NumEUs2 

Arg2 

IPCNam3 

Arg3 

IPCNam4 

Arg4 
end; 



= record 
Msg; 

TypeType; 
Integer; 
integer; 
long; 

pTSCharArray; 

TypeType; 

Integer; 

TypeType; 

Integer 



type 

RapMessage - record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : General Return 
end; 

ptrRepMsg = tRepMessage; 
var 

MyMsg : MyMessage; 
RepMsgP : ptrRepMsg; 
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begin 

RepMsgP := RECAST(ReP.ptrRepMsg) ; 
with MyMsg.head do 
begin 

Simplemsg := FALSE; 

MsgSize:= 50; 

MsgType:= NormalMsg; 

RemotePort := ServPort; 

LocalPort := ReplyPort; 

ID := 2813 
end; 
with MyMsg do 
begin 

IPCNam2.InLine := FALSE; 
IPCNam2. Deallocate := FALSE; 
IPCNam2.LongForni := TRUE; 
TName2 := 8; 
TSize2 := 8; 
NumElts2 := chap_count; 
Arg2 := chars; 
IPCNam3.InL1ne := TRUE; 
IPCNam3. Deallocate :- FALSE; 
IPCNam3.LongForm : a FALSE; 
IPCNam3.TypeName : = 1; 
IPCNam3.TypeSizoInBits : = 16; 
IPCNatn3,Num0biects ; a 1; 
Arg3 := firstCh; 
IPCNam4.InLine := TRUE; 
IPCNam4. Deal locate := FALSE; 
IPCNam4.LongForm := FALSE; 
IPCfJam4.TypeName :* 1; 
IPCNam4.TypaS1zeInBits := 16; 
IPCNam4.NumCbjects := 1; 
Arg4 := lastCh; 
end; 

GR := Send(MyMsg. head, 0, WAIT) ; 
if GR <> Success then 
begin 
Raise GRError(GR) ; 
exit(STSPutCharArray) 
end; 
end; 
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Function TSAsynch(InP : POINTER): boolean; 
var 

InMsgP : ptrMsg; 
begin 

InMsgP : = RECAST ( I nP.ptrMsg) ; 
with InMsgPt do 
begin 
TSAsynch := True; 
case shrink(ID) of 
Otherwise: TSAsynch := False 
end 
end 
end; 



Procedure TSExceptions ; 
begin 

with RePt.head do 
case shrink(ID) of 

Otherwise: raise GRError(BADREPLY) 
end 
end. 



1 1 .2.3. TsServer.pas 

This file is the Pascal server interface. 
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Module TSServer; 

{ > } Exports { < } 

Imports Acclnt from AccintUser; 
Imports TSDofs from TSDefs; 
Imports STypescript from STypescript; 
Imports TSTypes from TSTypes; 

Function TSServer(InP,RepP : POINTER) : boolean; 

{ — > } Private { < } 

Imports AccCall from AccCall ; 
Imports Pascallnit from Pascallnit; 

var 

ReplyPort: port; 

GR : GeneralReturn ; 

ReP : Pointer; 



Procedure XSTSOpen(InP, ReP : POINTER); 
type 

MyMessage = record 

head : Msg; 

IPCNamZ : TypoType; 

Arg2 : Viewport; 

IPCNam3 : TypeType; 

Arg3 : port 
end; 

type 

RepMessage = record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : GeneralReturn; 

IPCNam4 : TypeType; 

Arg4 : Typescript 
end; 
type 

ptrMyMsg = tMyMessage; 
ptrRepMsg = tRepMessage; 
var 

MyMsgP : ptrMyMsg; 
RepMsgP : ptrRepMsg; 
ServPort : Port; 
vp : Viewport; 
env : port; 
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begin 

MyMsgP := RECAST(InP, ptrMyMsg) ; 
RepMsgP := RECAST (ReP , ptrRepMsg) ; 
RepMsgPt . RetCode := Success; 
with RepMsgPt . head do 
begin 

Slmplemsg : a FALSE; 

MsgSIze := 36; 

MsgType := NormalMsg; 

ID := 2900 
end; 

with MyMsgPt do 
begin 

ServPort := head.LocalPort; 
1f IPCNam2.TypeName <> 6 then 
begin 

RepMsgPt.RetCode := WRONGARGS; 
exit(XSTSOpen) 
end ; 
vp := Arg2; 

1f IPCNam3.TypeName <> 6 then 
begin 

RepHsgPt.RetCode := WRONGARGS; 
exlt(XSTSOpen) 
end; 
env := Arg3; 
end; 

RepMsgPt.Arg4 : = STS0pen( 
SorvPort, 

vp, 
env); 
with RepMsgP* do 
begin 

IPCNam4.InL1ne :« TRUE; 
IPCNam4. Deallocate :« FALSE; 
IPCNam4.LongForm : = FALSE; 
IPCNam4.TypeName := 6; 
IPCNam4.TypeS1zeInB1ts :» 32; 
IPCNam4.Num0bjects : a 1; 
end 
end; 

Procedure XSTS0penW1ndow(InP, ReP : POINTER); 
type 

MyMessage a record 

head : Msg; 

IPCNam2 : TypeType; 

Arg2 : Window; 

IPCNam3 : TypeType; 

Arg3 : port 
end; 
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type 

RepMessage = record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : GeneralReturn ; 

IPCNam4 : TypeType; 

Arg4 : Typescript 
end ; 
type 

ptrMyMsg = tMyMessage; 
ptrRepMsg = tRepMessage; 
var 

MyMsgP : ptrMyMsg; 
RepMsgP : ptrRepMsg; 
ServPort : Port; 
w : Window; 
. env : port; 
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begin 

MyMsgP : = RECAST(InP.ptrMyMsg) ; 
RepMsgP := RECAST ( Re P , ptrRepMsg) ; 
RepMsgPt . RetCode := Success; 
with RepMsgPt . head do 
begin 

Slmplemsg := FALSE; 

MsgSIze := 36; 

MsgType := NormalMsg; 

ID := 2901 
end ; 

with MyMsgPt do 
begin 

ServPort := head.LocalPort; 
1f IPCNam2.TypeName <> 6 then 
begin 

RepMsgPt. RetCode := WRONGARGS; 
ex1t(XSTS0penW1ndow) 
end; 
w := Arg2; 

1f IPCNam3.TypeName <> 6 then 
begin 

RepMsgPt. RetCode := WRONGARGS ; 
ex1t(XSTS0penW1ndow) 
end; 
env := Arg3; 
end; 

RepMsgPt. Arg4 := STS0penW1ndow( 
ServPort, 
w, 

env); 
with RepMsgPt do 
begin 

IPCNam4.InL1ne TRUE; 
IPCNam4. Deal locate := FALSE; 
IPCNam4.LongForm :* FALSE; 
IPCNam4.TypeName 6; 
IPCNam4.TypeS1zeInB1ts 32; 
IPCNam4.Num0bjects := 1; 
end 
end; 
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Procedure XSTSFullOpen(InP, ReP : POINTER); 
type 

MyMessage = record 



head : 


Msg; 


IPCNam2 • 


TypeType; 


Arg2 


Viewport; 


IPCNam3 


TypeType; 


Arg3 


port; 


IPCNam4 


TypeType; 


Arg4 


TSStr1ng266; 


IPCNam5 


TypeType; 


Arg5 


boolean; 


IPCNam6 


. TypeType; 


Arg6 


: Integer 



end; 

RepMessage a record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : GeneralReturn ; 

IPCNam7 : TypeType; 

Arg7 : Typescript 
end; 
type 

ptrMyMsg = tMy^assage; 
ptrRepMsg = tR9pMessage; 
var 

MyMsgP : ptrMyMsg; 
RepMsgP : ptrRspMsg; 
ServPort : Port; 
vp : Viewport; 
env : port; 

fontName : TSString255; 
doWrap : boolean; 
dispPages : Integer; 
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begin 

MyMsgP := RECAST ( I nP, ptrMyMsg) ; 
RepMsgP := RECAST (ReP , ptrRepMsg) ; 
RepMsgPt . RetCode := Success; 
with RepMsgPt . head do 
begin 

Slmplemsg := FALSE; 

MsgSIze := 36; 

MsgType := NormalMsg; 

ID := 2902 
end; 

with MyMsgP* do 
begin 

ServPort := head.LcrcalPort; 
1f IPCNam2.TypeName <> 6 then 
begin 

. RepMsgPt. RetCode := WRONGARGS; 
exlt(XSTSFunOpen) 
end; 
vp := Arg2; 

1f IPCNam3.TypeName <> 6 then 
begin 

RepMsgPt. RetCode := WRONGARGS ; 
exlt(XSTSFuTIOpen) 
end; 
env := Arg3; 

1f IPCNam4,TypaName <> 0 then 
begin 

RepMsgPt. RetCode :» WRONGARGS; 
exlt(XSTSFunOpen) 
end; 

fontName := Arg4; 
1f IPCNam6.TypeName <> 0 then 
begin 

RepMsgPt .RetCode : « WRONGARGS; 
exlt(XSTSFuHOpen) 
end; 

doWrap : a Arg5; 
1f IPCNam6.TypeName <> 1 then 
begin 

RepMsgPt. RetCode :» WRONGARGS ; 
exlt(XSTSFullOpen) 
end; 

dlspPages : a Arg6; 
end; 

RepMsgPt. Arg7 :« STSFul10pen( 
ServPort, 

vp, 
env, 

fontName, 
doWrap, 
dlspPages) ; 
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with RepMsgPt do 
begin 

IPCNam7.InLine := TRUE; 
IPCNam7. Deallocate := FALSE; 
IPCNam7.LongForm := FALSE; 
IPCNam7.TypeName := 6; 
IPCNam7.TypeSizeInBits := 32; 
IPCNam7.Num0bjects := 1; 
end 
end; 

Procedure XSTSFunOpenWindow(InP , ReP : POINTER); 
type 

MyMessage = record 



head : 


Msg; 


IPCNam2 


TypeType; 


Arg2 


Window; 


IPCNam3 


TypeType; 


Arg3 


port; 


IPCNam4 


TypeType; 


Arg4 


TSString265; 


IPCNamS 


TypeType; 


Arg5 


, boolean; 


IPCNam6 


: TypeType; 


Arg6 


: Integer 



end; 
type 

RepMessage - record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : GeneralReturn; 

IPCNam7 : TypeType; 

Arg7 : Typescript 
end; 
type 

ptrMyMsg = tMyMessage; 
ptrRepMsg = tRepMessage; 
var 

M.yMsgP : ptrMyMsg; 
RepMsgP : ptrRepMsg; 
ServPort : Port; 
w : Window; 
env : port; 

fnp + Hame • TQC+ r» 4 nn9RR . 
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doWrap : boolean; 
dispPages : Integer; 
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begin 

MyMsgP := RECAST ( I nP.ptrMyMsg) ; 
RepMsgP := RECAST (ReP , ptrRepMsg) ; 
RepMsgPt . RetCode := Success; 
with RepMsgPt . head do 
begin 

Slmplemsg := FALSE; 

MsgSIze := 36; 

MsgType := NormalMsg; 

ID := 2903 
end; 

with MyMsgPt do 
begin 

ServPort := head. LocalPort ; 
1f IPCNam2.TypeName <> 8 then 
begin 

RepMsgPt. RetCode := WRONGARGS; 
ex1t(XSTSFu1!0penW1ndow) 
end; 
w := Arg2; 

1f IPCNam3.TypeName <> 6 then 
begin 

RepMsgPt. RetCode := WRONGARGS; 
ex1t(XSTSFul10pQnW1ndow) 
end; 
env : s Arg3; 

1f IPCNam4.TypeNarce <> 0 then 
begin 

RepMsgPt. RetCode := WRONGARGS; 
ex1t(XSTSFul"IOpenW1ndow) 
end; 

fontName := Arg4; 
1f IPCf!am5.TypeName <> 0 then 
begin 

RepMsgPt. RetCode := WRONGARGS; 
ex1t(XSTSFu1l0penW1ndow) 
end; 

doWrap := Arg6; 
1f IPCNam8.TypeName <> 1 then 
begin 

RepMsgPt. RetCode : = WRONGARGS; 
exit(XSTSFunOpenWlndow) 
end; 

dlspPages : a Arg6; 
end; 
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RepMsgPt .Arg7 := STSFullOpanWindow( 
ServPort , 

env, 

fontName, 
doWrap, 
dispPages) ; 
with RepMsgPt do 
begin 

IPCNam7.InL1ne := TRUE; 
IPCNam7. Deallocate := FALSE; 
IPCNam7.LongForm := FALSE; 
IPCNam7.TypeName := 6; 
IPCNam7.TypeSizeInBits := 32; 
IPCNam7.Num0bjects :- 1; 
end 
end; 

Procedure XSTSFullL1ne(InP, ReP : POINTER); 
type 

MyMessage = record 

head : Msg 
end; 

type 

RepMessage = record 

head : Msg; 

RetCodeType : - TypeType ; 

RetCode : GeneralReturn ; 

IPCNamZ : TypeType; 

Arg2 : boolean 
end; 
type 

ptrMyMsg ■ tMy Mess age; 
ptrRepMsg s tRepMessage; 
var 

MyMsgP : ptrMyMsg; 
RepMsgP : ptrRepMsg; 
ServPort : Port; 
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begin 

MyMsgP := RECAST(InP, ptrMyMsg) ; 
RepMsgP := RECAST ( Re P , ptrRepMsg) ; 
RepMsgPt.RetCode := Success; 
with RepMsgPt . head do 
begin 

Simplemsg := TRUE; 

MsgSIze := 34; 

MsgType := NormalMsg; 

ID := 2904 
end; 

with MyMsgPt do 
begin 

ServPort := head. LocalPort; 
end ; 

RepMsgPt. Arg2 : = STSFullL1ne( 

ServPort) ; 
with RepMsgPt do 
begin 

IPCNam2.InL1ne := TRUE; 
IPCNam2. Deallocate := FALSE; 
IPCNam2. LongForm :* FALSE; 
IPCNam2.TypeName : a 0; 
IPCNam2.TypoS1zeInB1ts 1; 
IPCNam2.NuinObjects :° 1; 
end 
end; 

Procedure XSTSGetChar(InP, ReP : POINTER); 
type 

MyMessage = record 

head : Msg 
end; 

type 

RepMessage a record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : GeneralReturn; 

IPCNam2 : TypeType; 

Arg2 : char 
end; 
type 

ptrMyMsg ■ tMyMessage; 
ptrRepMsg = tRepMessage; 
var 

MyMsgP : ptrMyMsg; 
RepMsgP : ptrRepMsg; 
ServPort : Port; 
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begin 

MyMsgP := RECAST( InP , ptrMyMsg) ; 
RepMsgP := RECAST(RgP, ptrRepMsg) ; 
RepMsgPt . RetCode := Success; 
with RepMsgPt.head do 
begin 

Simplemsg := TRUE; 
MsgSIze := 34; 
MsgType := NormalMsg; 
ID := 2906 
end; 

with MyMsgP* do 
begin 

ServPort := head.LocalPort; 
end; 

RepMsgP*. Arg2 := STSGetChar( 

ServPort); 
with RepMsgP* do 
begin 

IPCNam2.InLine := TRUE; 
IPCNam2. Deallocate := FALSE; 
IPCNama.LongForm := FALSE; 
IPCNam2.TypeName 8; 
IPCNam2.TypeSizeInB1ts := 8; 
IPCNsmZ . NuniOb jects : a 1; 
end 
end; 

Procedure XSTSGetString(InP t ReP : POINTER); 
type 

MyMassaga = record 

head : Msg 
end; 

type 

RepMessage ■ record 

head : Msg; 

RetCodeType : TypeType; 

RetCodo : GeneralReturn; 

IPCNam2 : TypeType; 

Arg2 : TSStr1ng266 
end; 
type 

ptrMyMsg = *MyMsssage; 
ptrRepMsg s tRepMessage; 
var 

MyMsgP : ptrMyMsg; 
RepMsgP : ptrRepMsg; 
ServPort : Port; 
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begin 

MyMsgP := RECAST ( I nP , ptrMyMsg) ; 
RepMsgP := RECAST ( Re P, ptrRepMsg) ; 
RepMsgPt.RetCode := Success; 
with RepMsgPt . head do 
begin 

Slmplemsg : s TRUE; 

MsgSIze := 288; 

MsgType := NormalMsg; 

ID := 2906 
end; 

with MyMsgPt do 
begin 

ServPort := head. LocalPort ; 
end; 

RepMsgPt. Arg2 := STSGetStr1ng( 

ServPort) ; 
with RepMsgPt do 
begin 

IPCNam2.InL1ne := TRUE; 
IPCNam2. Deal locate := FALSE; 
IPCNam2. LongForm := FALSE; 
IPCNam2.TypeName : = 0; 
IPCNam2.TypeS1zeInB1ts : a 8; 
IPCNam2.Num0bjects := 256; 
end 
end; 

Procedure XSTSPutChar(InP, ReP : POINTER); 
type 

MyMessage = record 

head : Msg; 

IPCNam2 : TypeType; 

Arg2 : char 
end; 

type 

RepMessage = record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : GeneralReturn 
end; 
type 

ptrMyMsg ■ tMyMessage; 
ptrRepMsg = tRepMessage; 
var 

MyMsgP : ptrMyMsg; 
RepMsgP : ptrRepMsg; 
ServPort : Port; 
ch : char; 
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begin 

MyMsgP := RECAST(InP , ptrMyMsg) ; 
RepMsgP := RECAST ( RaP , ptrRepMsg) ; 
RepMsgPt .RetCode := Success; 
with MyMsgPt do 
begin 

ServPort := head.LocalPort; 
if IPCNam2.TypeName <> 8 then 
begin 

RepMsgPt. RetCode := WRONGARGS; 
exlt(XSTSPutChar) 
end ; 
ch := Arg2; 
end; 
STSPutChar( 
ServPort, 
ch); 

RepMsgPt. RetCode : = NoReply 
end; 

Procedure XSTSPutString(InP, ReP : POINTER); 
type 

MyMessage = record 

head : Msg; 

IPCNam2 : TypeType; 

Arg2 : TSString266 
end; 

type 

RepMessage = record 

head : Msg; 

RatCodeType : TypeType; 

RetCode : GeneralReturn 
end; 
type 

ptrMyMsg = tM.yMessage; 
ptrRepMsg ■ tRepMessage; 
var 

MyMsgP : ptrMyMsg; 
RepMsgP : ptrRepMsg; 
ServPort : Port; 
s : TSString255; 
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begin 

MyMsgP := RECAST(InP, ptrMyMsg) ; 
RepMsgP := RECAST ( Re P, ptrRepMsg) ; 
RepMsgPt.RetCode := Success; 
with MyMsgP* do 
begin 

ServPort := head. LocalPort; 
if IPCNam2.TypeName <> 0 then 
begin 

RepMsgPt.RetCode := WRONGARGS; 
ex1t(XSTSPutStr1ng) 
end; 
s := Arg2; 
end; 
STSPutStr1ng( 
ServPort, 
s); 

RepMsgPt.RetCode := NoReply 
end; 

Procedure XSTSFlushInput(InP, ReP : POINTER); 
type 

MyMessage = record 

head : Msg 
end; 

type 

RepMessage =» record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : GeneralReturn 
end; 
type 

ptrMyMsg = tMyMessage; 
ptrRepMsg = tRepMessage; 
var 

MyMsgP : ptrMyMsg; 
RepMsgP : ptrRepMsg; 
SorvPort : Port; 

begin 

MyMsgP := RECAST(InP, ptrMyMsg) ; 
RepMsgP :« RECAST(ReP, ptrRepMsg) ; 
RepMsgPt.RetCode : a Success; 
with MyMsgPt do 
begin 

ServPort := head. LocalPort; 
end; 
STSF1ushInput( 

ServPort) ; 
RepMsgPt.RetCode NoReply 
end; 
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Procedure XSTSFlushOutput(InP, ReP : POINTER); 
type 

MyMsssage = record 

head : Msg 
end ; 

type 

RepMessage = record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : GeneralReturn 
end; 
type 

ptrMyMsg = tMyMessage; 
ptrRepMsg = tRepMessage; 
var 

MyMsgP : ptrMyMsg; 
RepMsgP : ptrRepMsg; 
ServPort : Port; 

begin 

MyMsgP := RECAST(InP, ptrMyMsg) ; . 
RepMsgP := RECAST (ReP, ptrRepMsg) ; 
RepMsgPt. RetCode := Success; 

.,.4 4- h D~ r->U.-. „0>*. U~ „ A A ~ 

w i uii nupi'ioyr ■ . uoau uu 

begin 

Slmplemsg := TRUE; 

MsgSIze 23; 

MsgType := NormalMsg; 

ID := 2910 
end; 

with MyMsgPt do 
begin 

ServPort :» head.LocalPort; 
end; 

STSF1ush0utput( 

ServPort) ; 
with RepMsgPt do 
begin 
end 
end; 
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Procedure XSTSChangeEnv(InP, ReP : POINTER); 
type 

MyMessage ■ record 

head : Msg; 

IPCNam2 : TypeType; 

Arg2 : port 
end; 

type 

RepMessage 3 record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : GeneralReturn 
end; 
type 

ptrMyMsg = tMyMessage; 
ptrRepMsg = tRepMessage; 
var 

MyMsgP : ptrMyMsg; 
RepMsgP : ptrRepMsg; 
ServPort : Port; 
env : port; 
begin 

MyMsgP : = RECAST( InP , ptrMyMsg) ; 
RepMsgP := RECAST(ReP, ptrRepMsg) ; 
RepMsgPt .RetCode := Success; 
with MyMsgPt do 
begin 

ServPort :■ head.LocalPort; 
1f IPCNam2.TypeName <> 6 then 
begin 

RepMsgPt. RetCode :» WRONGARGS; 
exlt(XSTSChangeEnv) 
end; 
env :=* Arg2; 
end; 
STSChangeEnv( 
ServPort, 
env) ; 

RepMsgPt. RetCode :=» NoReply 
end; 
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Procedure XSTSGrabW1nc!ow(InP, ReP : POINTER); 
type 

MyMessage = record 

head : Msg; 

IPCNam2 : TypeType; 

Arg2 : port 
end; 

type 

RepMessage = record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : GeneralReturn ; 

IPCNam3 : TypeType; 

Arg3 : Window 
end; 
type 

ptrMyMsg = tMyMessage; 
ptrRepMsg = tRepMessage ; 
var 

MyMsgP : ptrMyMsg; 
RepMsgP : ptrRepMsg; 
ServPort : Port; 
kPort : port; 

begin 

MyMsgP := RECAST(InP, ptrMyMsg); 
RepMsgP := RECAST (ReP, ptrRepMsg) ; 
RepMsgP*. RetCode ;= Success; 
with RepMsgP*. head do 
begin 

Simplemsg :» FALSE; 
MsgSize :» 36; 
MsgType : = NormalMsg; 
ID := 2912 
end; 
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with MyMsgPt do 
begin 

ServPort := head. LocalPort ; 
1f IPCNam2.TypeName <> 6 then 
begin 

RepMsgPt.RetCode := WRONGARGS; 
ex1t(XSTS6rabW1ndow) 
end; 
kPort := Arg2; 
end; 

RepMsgPt.Arg3 := STSGrabW1ndow( 

ServPort, 

kPort) ; 
with RepMsgPt do 
begin 

IPCNam3.InL1ne := TRUE; 
IPCNam3. Deallocate := FALSE; 
IPCNam3.LongForm := FALSE; 
IPCNam3.TypeName := 6; 
IPCNam3.TypeSizeIn81ts :» 32; 
IPCNam3.Num0bjects := 1; 
end 
end; 

Procedure XSTSPutCharArray(InP, ReP : POINTER); 
type 

MyMessage ■ record 



head : 


Msg; 


IPCNam2 


TypeType; 


TName2 


Integer; 


TS1ze2 


Integer; 


NumElts2 


long; 


Apg2 


pTSCharArray 


IPCNam3 


TypeType; 


Apg3 


Integer; 


IPCNam4 


TypeType; 


Apg4 


Integer 



end; 
type 

RepMessage a record 

head : Msg; 

RetCodeType : TypeType; 

RetCode : General Return 
end; 
type 

ptrMyMsg = tMyMessage; 
ptrRepMsg = tRepMessage; 
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var 

MyMsgP : ptrMyMsg; 
RepMsgP : ptrRepMsg; 
ServPort : Port; 
chars : pTSCharArray ; 
char_count : long; 
firstCh : Integer; 
lastCh : Integer; 
begin 

MyMsgP := RECAST ( I nP.ptrMyMsg) ; 
RepMsgP := RECAST(ReP, ptrRepMsg) ; 
RepMsgP*. RetCode := Success; 
with MyMsgP* do 
begin 

ServPort := head. LocalPort ; 
1f TName2 <> 8 then 
begin 

RepMsgP*. RetCode WRONGARGS; 
exit(XSTSPutCharArray) 
end; 

char_count :- NumElts2; 
chars := Arg2; 

1f IPCNam3.TypeName <> 1 then 
begin 

RepMsgP*. RetCode := WRONGARGS; 
e x i t ( X S T S P u t C h a r A r r ay ) 
end; 

firstCh := Arg3; 
if IPCNam4.TypeName <> 1 then 
begin 

RepMsgP*. RetCode := WRONGARGS; 
exit(XSTSPutCharArray) 
end; 

lastCh : a Arg4; 
end; 

STSPutCharArray( 

ServPort, 

chars , 

char_count, 

firstCh, 

lastCh) ; 
RepMsgP*. RetCode :» NoReply 
end; 
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Function TSServer( InP , RepP : POINTER): boolean; 
type 

RepMassage = record 



end; 

ptrRepMessage = tRepMessage; 
var 

InMsgP : ptrMsg; 
RepMsgP : ptrRepMessage; 

begin 

InMsgP := RECAST ( I nP.ptrMsg) ; 
RepMsgP := RECAST (RepP , ptrRepMessage) ; 
with RepMsgPt .Head do 
begin 

LocalPort := InMsgPt. LocalPort ; 
RemotePort := InMsgPt. RemotePort 
end ; 

with RepMsgPt.RetCodeType do 
begin 

TypeName := TYPEINT16; 
TypeSlzelnBits : a 16; 
NumObjects := 1; 
InLlne := true; 
LongForm : s false; 
Deallocate := false 
end; 

TSServer := True; 
with InMsgPt do 
case shrlnk(ID) of 

2800: XSTSOpen(InP.RepP); 

2801: XSTSOponWindow(InP.RepP); 

2802: XSTSFullOpen(InP.RepP); 

2803: XSTSFullOpenWindow(InP,RepP); 

2804: XSTSFullL1ne(InP,RepP); 

2805: XSTSGetChar(InP.RepP) ; 

2806: XSTSGetString(InP.RepP); 

2807: XSTSPutChar(InP.RepP); 

2808: XSTSPutString(InP,RepP); 

2809: XSTSFlushlnput(InP.RepP); 

2810: XSTSFlushOutput(InP.RepP) ; 

2811: XSTSChangeEnv(InP,RepP); 

2812: XSTSGrabWindow(InP.RepP) ; 

2813: XSTSPutCharArray(InP.RepP) ; 

Otherwise: begin 



head 

RetCodeType 
RetCode 



Msg; 

TypeType; 
GeneralReturn; 



TSServer : a False; 
RepMsgP*. RetCode :- BADMSGID 
end 



end 
end, 
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1 1.2.4. TsDefs.slisp 

This file contains Accent Lisp types. 
;;;; -*-Lisp-*- 

» t t » 

;;;; Matchmaker generated types and constants definitions file for TS 

• * t t 

;;;; THIS FILE SHOULD NOT BE HAND EDITED 

t t I 1 

;;;; To change this Interface, edit the interface matchmaker 
;;;; file and run it through matchmaker to generate this file. 



(1n-package "TSDEFS") 
(use-package "MMINTERNALDEFS") 
(use-package "BUILTINDEFS") 

(use-package "ACCINTDEFS") 

(use-package "SAPPHDEFSDEFS") 

(defoperator (Typescript-op port) ((alien port)) ' (alien-value , alien)) 
(def macro access-Typescript (alien) 

(alien-access (Typescr1pt-op , alien) port)) 



(defoperator (TSString255-op simple-string) ((alien (perq-string 256))) * 
(alien-value , alien)) 

(defmacro access-TSString255 (alien) 

(alien-access (TSStr1ng256-op , alien) simple-string)) 

(defmacro access-TSCharArray (a 1) 
i 

(alien-access (index-TSCharArray , a , i) string-char)) 



(defoperator (index-TSCharArray string-char) ((a TSCharArray) i) • 
(alien-index (alien-value , a) (* , 1 16) 8)) 

(defoperator (derof-pTSCharArray TSCharArray) 

((p (ref TSCharArray)) size-1n-b1ts) * 
(alien-indirect (alien-value , p) , s1ze-1n-bits)) 

(defmacro address-pTSCharArray (alien) 

(alien-access , alien system-area-pointer)) 

(export 

' (pTSCharArray address-pTSCharArray deref-pTSCharArray TSCharArray 
Index-TSCharArray access-TSCharArray TSStr1ng255 access-TSStr1ng255 
TSString255-op Typescript access-Typescript Typescript-op)) 



4 September 1984 



MATCllMAKHR: Till: ACCENT RHMOTK CALL PROCHDURH LANGUAGE - 94 



1 1 .2.5. TsUser.slisp 

This file is the Accent Lisp user interface. 
.... -*-L1sp-*- 

;;;; Matchmaker generated user Interface file for TS 



THIS FILE SHOULD NOT BE HAND EDITED 

To change this Interface, edit the Interface matchmaker 
file and run it through matchmaker to generate this file. 



(1n-package "TSUSER") 
(use-package "TSDEFS") 
(use-package "BUILTINDEFS") 
(use-package "MMINTERNALDEFS") 



(use-package "ACCINTUSER") 
(defvar *rece1veport* NIL) 
(defconstant Interface-backlog 0) 

(use-package "SAPPHDEFSDEFS") 
(use-package "ACCINTDEFS") 



;;; TS-Send — Internal 
; ; ; Send macro for TS 

(defmacro TS-Send (msg argblock wa1t-t1me send-option) 
"User send macro for Interface TS" 

(cond ((flxnump *rece1veport*) 

(alien-store (msg-localport-op , msg) port *rece1veport*) 
(send , argblock , wait- time , send-option)) 
(t 

notaport))) 



;;; User side Interface Initialization function. 

(defun TS-Init (user-port) 

"The user side intlalization function" 
(cond ((eql user-port nullport) 

(mul t1ple-value-b1nd (gr port) (allocateport kernelport interface-backlog) 
(1f (eql gr success) (setq *rece1veport* port) 
(setq *rece1veport* dataport)) 

gr)) 

(t 

(setq *rece1veport* user-port) 
success))) 
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; ; ; STSOpen — publ 1c 

;;; User-side remote procedure call Interface. 

(defun STSOpen (Remote_Port vp env) 

"The user side of remote procedure STSOpen" 
(prog (R_e_s_u_l_t 

(send-waittime 0) 

(send-option 0) 

(receive-waittime 0) 

(alien-bind ((to to-STSOpen to-STSOpen)) 
(al ien-store 

(msg-remoteport-op (Msgize-to-STSOpen-op (alien-value to))) port 
Remote_Port) 

(alien-store ( to-STSOpen-vp-op (alien-value to)) port vp) 
(alien-store (to-STSOpen-env-op (alien-value to)) port env) 
(setq gr 

(TS-send (Msg1ze-to-STS0pen-op (alien-value to)) to-STSOpen 
send-waittime send-option))) 
(alien-bind ((from f rom-STSOpen f rom-STSOpen)) 
(cond ((eql gr success) 
(al ien-store 
(msg-msgsize-op 

(Msgize-f rom-STSOpen-op (alien-value from))) 
(signed-byte 32) 36) 
(alien-store 
(msg-localport-op 

(Msgize-f rom-STSOpen-op (alien-value from))) 
port *ReceivePort*) 
(setq gr 

(receive f rom-STSOpen receive-waittima localpt 
receivelt)) 
(cond ((not (aql gr success)) 
NIL 

(return gr)) 
((■ 

(access-msg-id 

(Msgize-f rom-STSOpen-op (alien-value from))) 
2900) 
(cond ((■ 

(access-typetypei-typename 
(msg-retcode-typetypei-op 
(Msgize-f rom-STSOpen-op 
(alien-value from)))) 

1) 

(setq gr 

(access-msg-retcode 
(Msgize-f rem-STSOpen-op 
(alien-value from))))) 

(t 
NIL 

(return badreply))) 
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(cond ((eql 

(access-typetypel-typename 
(f rom-STSOpen-R_e_s_u_l_t-typetypeI-op 
(alien-value from))) 

(setq R_e_s_u_l_t 

(access-f rom-STSOpen-R_e_s_u_l_t 
(alien-value from)))) 

(t 
NIL 

(return BADREPLY) ) ) 

NIL 

(return (values R_e s u_l_t))) 
(t 
NIL 

(return 
(user-alternate-return 
(Msgize-f rom-STSOpen-op (alien-value from))))))) 

(t 
NIL 

(return gr)))))) 
STSOpenWIndow — public 

User-side remote procedure call Interface. 

(defun STSOpenWIndow (Remote_Port w env) 

"The user side of remote procedure STSOpenWIndow" 
(prog (R_e_s_u_l_t 

(send-wa1ttime 0) 

(send-optlon 0) 

(recelve-walttime 0) 

gr) 

(alien-bind ((to to-STSOpenW1ndow to-STSOpenW1ndow)) 
(al 1en-store 

(msg-remoteport-op (Msg1ze-to-STSOpenW1ndow-op (alien-value to))) 
port Romote_Port) 

(alien-store (to-STSOpenW1ndow-w-op (alien-value to)) port w) 
(alien-store (to-STS0penW1ndow-env-op (alien-value to)) port env) 
(setq gr 

(TS-send (Msg1ze-to-STSOpenW1ndow-op (alien-value to)) 
to-STS0penW1ndow send-wa1tt1me send-optlon))) 
(al1en-b1nd ((from f rom-STS0penW1ndow f rom-STSOpenW1ndow)) 
(cond ((eql gr success) 
(alien-store 
(msg-msgs1ze-op 

(Msg1ze-f rom-STS0penW1ndow-op (alien-value from))) 
(s1gned-byte 32) 36) 
(al 1en-store 
(msg-localport-op 

(Msg1ze-f rom-STSOpenW1ndow-op (alien-value from))) 
port *Rece1vePort') 
(setq gr 

(receive f rom-STSOpenW1ndow recelve-walttime localpt 
recelvelt)) 
(cond ((not (eql gr success)) 
NIL 

(return gr)) 
((- 

(access-msg-1d 
(Msg1ze-f rom-STS0penW1ndow-op (alien-value from))) 
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2901) 
(cond ((■ 

( access- typetypel-typename 
(ms g-retcode- type type 1 -op 
(Msgize-f rom-STSOpenWindow-op 
(alien-value from)))) 

1) 

(setq gr 

(access-msg-retcode 
(Msg1ze-f rom-STS0penW1ndow-op 
(alien-value from))))) 

(t 
NIL 

(return badreply))) 
(cond ((eql 

(access-typetypel-typename 
(f rom-STSOpenWindow-R_e_s_u_l_t-typetypeI-op 
(alien-value from))) 

6) 

(setq R_e_s_u_l_t 

(access-f rom-STS0penW1ndow-R_e_s_u_l_t 
(alien-value from)))) 

(t 
NIL 

(return BADREPLY))) 

NIL 

(return (values R_e_s_u l_t))) 
(t 

NIL 

(return 
(user-alternate-return 
fMsg1ze-f rom-STSOpenW1ndow-op fallen-value from)^)^)) 

(t 
NIL 

(return gr)))))) 
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;;; STSFullOpen — public 

;;; User-side remote procedure call Interface. 

(defun STSFullOpen (Remote_Port vp env fontName doWrap dispPages) 
"The user side of remote procedure STSFullOpen" 
(prog (R_e_s_u_l_t 

(send-wa1tt1me 0) 

(send-optlon 0) 

(receive-walttime 0) 

gr) 

(alien-bind ((to to-STSFul lOpen to-STSFul lOpen)) 
(al 1en-store 

(msg-remoteport-op (Msg1ze-to-STSFullOpen-op (alien-value to))) 
port Remote_Port) 

(alien-store (to-STSFul lOpen-vp-op (alien-value to)) port vp) 
(alien-store ( to-STSFullOpen-env-op (alien-value to)) port env) 
(alien-store (to-STSFul lOpen-fontName-op (alien-value to)) 

simple-string fontName) 
(alien-store (to-STSFullOpen-doWrap-op (alien-value to)) boolean 

doWrap) 

(alien-store (to-STSFullOpen-d1spPages-op (alien-value to)) 
(signed-byte 16) dispPages) 

(setq gr 

(TS-send (Msg1ze-to-STSFul lOpen-op (alien-value to)) 
to-STSFul lOpen send-waittlme send-option))) 
(alien-bind ((from f rom-STSFullOpen f rom-STSFul lOpen)) 
(cond ((eql gr success) 
(al 1en-store 
(msg-msgs1ze-op 

(Msg1ze-f rom-STSFullOpen-op (alien-value from))) 
(signed-byte 32) 36) 
(al ien-store 
(msg-localport-op 

(Msgize-f rom-STSFul lOpen-op (alien-value from))) 
port *Rece1vePort*) 
(setq gr 

(receive f rom-STSFullOpen recelve-walttlme localpt 
recelveit)) 
(cond ((not (eql gr success)) 
NIL 

(return gr)) 
«■ 

(access-msg-1d 

(Msgize-f rom-STSFullOpen-op (alien-value from))) 
2902) 
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(cond ((■ 

( access- typetypei-typename 
(msg-ratcode-typetypel-op 
(Msg1ze-f rom-STSFullOpan-op 
(alien-value from)))) 

1) 

(setq gr 

(access-msg-retcode 
(Msg1ze-f rom-STSFul lOpen-op 
(alien-value from))))) 

(t 
NIL 

(return badreply))) 
(cond ((eql 

( access- typetypei-typename 
(f rom-STSFullOpen-R_e_s_u_l_t-typetypeI-op 
(alien-value from))) 

6) 

(setq R_e_s_u_l_t 

(access-f rom-STSFullOpen-R_e_s_u_l_t 
(alien-value from)))) 

(t 
NIL 

(return BADREPLY) ) ) 

NIL 

(return (values R_e_s_u_l_t))) 
(t 
NIL 

(return 
(user-alternate-return 
(Msg1ze-f rom-STSFullOpen-op (alien-value from))))))) 

(t 
NIL 

(return gr)))))) 
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STSFullOpenWIndow — public 

User-side remote procedure call Interface. 

(defun STSFullOpenWIndow (Remote_Port w env fontName doWrap dispPages) 
"The user side of remote procedure STSFullOpenWIndow" 
(prog (R_e_s_u_l_t 

(send-wa1tt1me 0) 

(send-optlon 0) 

(recelve-walttlme 0) 

gr) 

(al1en-b1nd ((to to-STSFul !0penW1ndow to-STSFul lOpenWIndow) ) 
(al 1en-store 
(msg-remoteport-op 

(Msg1ze-to-STSFullOpenW1ndow-op (alien-value to))) 
port Remote_Port) 

(alien-store ( to-STSFul lOpenW1ndow-w-op (alien-value to)) port w) 
(alien-store ( to-STSFul l0penW1ndow-env-op (alien-value to)) port 
env) 

(alien-store (to-STSFull0penW1ndow-fontName-op (alien-value to)) 

simple-string fontName) 
(alien-store (to-STSFul l0penW1ndow-doWrap-op (alien-value to)) 

boolean doWrap) 

(alien-store (to-STSFull0penW1ndow-d1spPages-op (alien-value to)) 
(s1gned-byte 16) dispPages) 

(setq gr 

(TS-send (Msg1ze-to-STSFull0penW1ndow-op (alien-value to)) 
to-STSFullOpenWindow sond-wa1tt1me send-optlon))) 
(al1en-b1nd ((from f rom-STSFul lOpenWIndow f rom-STSFull0penW1ndow)) 
(cond ((eql gr success) 
(alien-store 
(msg-msgs1ze-op 
(Msg1ze-f rom-STSFullOpenW1ndow-op (alien-value from))) 
(slgned-byte 32) 36) 
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(alien-store 

(msg-localport-op 
(Msglzerf rom-STSFullOpenWIndow-op (alien-value from))) 

port *Rece1vePort*) 
(setq gr 

(receive f rom-STSFullOponWIndow rece1ve-vva1tt1me 
localpt recelvelt)) 
(cond ((not (eql gr success)) 
NIL 

(return gr)) 
((■ 

(access-msg-1d 
(Msg1ze-f rom-STSFullOpenVMndow-op 
(alien-value from))) 
2903) 
(cond ((■ 

( access- typetypel-typenama 
(msg-retcode-typetype1-op 
(Msg1ze-f rom-STSFullOpenVHndow-op 
(alien-value from)))) 

1) 

(setq gr 

(access-msg-retcode 
(Msg1ze-f rom-STSFullOpenWIndow-op 
(alien-value from))))) 

(t 
NIL 

(return badreply))) 
(cond ((eql 

(access-typetypel-typename 
(f rom-STSFull0p3nW1ndow-R_e_s_u_l_t-typetypeI-op 

/ - -I J 1 -o _\ \ V 

( a 1 1wn-va i uo ttvVS})) 

6) 

(setq R_e_s_u_l_t 

(accoss-f rom-STSFullOpsnW1ndow-R_e_s_u_l_t 
(alien-value from)))) 

(t 
NIL 

(return BADREPLY))) 

NIL 

(return (values R_e_s_u_l_t))) 
(t 
NIL 

(return 
(user-alternate-return 
(Msgize-f rom-STSFullOpenWIndow-op 
(alien-value from))))))) 

(t 
NIL 

(return gr)))))) 
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; ; ; STSFullLlne — public 

;;; User-side remote procedure call Interface. 

(defun STSFullLlne (Remote_Port) 

"The user side of remote procedure STSFullLlne" 
(prog (R_e_s_u_l_t 

(send-wa1tt1me 0) 

(send-optlon 0) 

(reco1ve-wa1tt1me 0) 

gr) 

(alien-bind ((to to-STSFul!L1ne to-STSFul lL1ne)) 
(al 1en-store 

(msg-remoteport-op (Msg1ze-to-STSFullL1ne-op (alien-value to))) 
port Remote_Port) 
(setq gr 

(TS-send (Msg1ze-to-STSFul 1 L1ne-op (alien-value to)) 
to-STSFul!L1ne send-wa1tt1me send-optlon))) 
(alien-bind ((from f rom-STSFullLine from-STSFullLlne)) 
(cond ((eql gr success) 
(al 1en-store 
(msg-msgs1ze-op 
(Msg1ze-f rom-STSFullL1ne-op (alien-value from))) 
(s1gned-byte 32) 34) 
(alien-store 
(msg-localport-op 

(Msg1ze-f rom-STSFullL1ne-op (alien-value from))) 
port *Rece1vePort*) 
(setq gr 

(receive from-STSFullLlne rece1ve-wa1tt ime localpt 
recelvelt)) 
(cond ((not (eql gr success)) 
NIL 

(return gr)) 
f(- 

(access-msg-1d 
(Msg1ze-f rom-STSFullLine-op (alien-value from))) 
2904) 
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(cond ((■ 

(access- type type i-typename 
(msg-retcode-typetype1-op 
(Msgize-f rom-STSFull Line-op 
(alien-value from)))) 

1) 

(setq gr 

(access-msg-retcode 
( Msg ize-f rom-STSFull Line-op 
(alien-value from))))) 

(t 
NIL 

(return badreply))) 
(cond ((eql 

(access-typetype i-typename 
(f rom-STSFul !L1ne-R_e_s_u_l_t-typetypeI-op 
(alien-value from))) 

0) 

(setq R_e_s_u_l_t 

(access-f rom-STSFull Li ne-R_e_s_u_l_t 
(alien-value from)))) 

(t 
NIL 

(return BADREPLY) )) 

NIL 

(return (values R_e_s_u_l_t))) 
(t 
NIL 

(return 
(user-alternate-return 
(Msgize-f rom-STSFull Line-op (alien-value from))))))) 

(t 
NIL 

(return gr)))))) 
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STSGetChar — public 

User-side remote procedure call Interface. 

(defun STSGetChar (Remote_Port) 
"The user side of remote procedure STSGetChar" 
(prog (R_e_s_u_l_t 

(send-wa1tt1me 0) 

(send-optlon 0) 

(receive-walttlme 0) 

gr) 

(alien-bind ((to to-STSGetChar to-STSGetChar)) 
(al 1en-store 

(msg-remoteport-op (Msg1ze-to-STSGetChar-op (alien-value to))) 
port Remote_Port) 
(setq gr 

(TS-send (Msg1ze-to-STSGetChar-op (alien-value to)) 
to-STSGetChar send-walttime send-optlon))) 
(al1en-b1nd ((from f rom-STSGetChar f rom-STSGetChar)) 
(cond ((eql gr success) 
(al 1en-store 
(msg-msgs1ze-op 
(Msg1ze-f rom-STSGetChar-op (alien-value from))) 
(s1gned-byte 32) 34) 
(al 1en-store 
(msg-localport-op 

(Msg1ze-f rom-STSGetChar-op (alien-value from))) 
port *Rece1vePort*) 
(sotq gr 

(receive f rom-STSGetChar receive-walttlme localpt 
recelvelt)) 
(cond ((not (eql gr success)) 
NIL 

(return gr)) 
((• 

(access-msg-1d 
(Msg1ze-f rom-STSGetChar-op (alien-value from))) 
2906) 
(cond ((■ 

( access -typotypel-typename 
(msg-retcode-typetype1-op 
(Msg1ze-f rom-STSGetChar-op 
(alien-value from)))) 

1) 

(setq gr 

(access-msg-retcode 
(Msg1ze-f rom-STSGetChar-op 
(alien-value from))))) 

(t 
NIL 

(return badreply))) 
(cond ((eql 

(access-typetypel-typename 
(from~STSGetChar-R_e_s_u_l_t-typetypeI-op 
(alien-value from))) 

8) 

(setq R_e_s_u_l_t 

(access-f rom-STSGetChar-R_e_s_u_l_t 
(alien-value from)))) 

(t 
NIL 

(return BADREPLY) ) ) 

NIL 

(return (values R_e_s_u_l_t))) 
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(t 
NIL 

(return 
(usor-al ternate- return 
(Msgize-f rom-STSGetChar-op (alien-value from))))))) 

(t 
NIL 

(return gr)))))) 



;;; STSGetStrlng — public 

;;; User-side remote procedure call Interface. 

(defun STSGetStrlng (Remote_Port) 

"The user side of remote procedure STSGetStrlng" 
(prog (R_e_siu_l_t 

(send-waittime 0) 

(send-option 0) 

(recelve-waittime 0) 

g<*) 

(alien-bind ((to to-STSGetStr1ng to-STSGetStr1ng) ) 
(al ien-store 

(msg-remoteport-op (Msg1ze-to-STSGetStr1ng-op (alien-value to))) 
port Remote_Port) 
(setq gr 

(TS-send (Msg1ze-to-STSGetStr1ng-op (alien-value to)) 
to-STSGetString send-waittime send-option))) 
(alien-bind ((from from-STSGetStrlng from-STSGetString)) 
(cond ((eql gr success) 
(al ien-store 
(msg-msgslze-op 
(Msgize-f rom-STSGetString-op (alien-value from))) 
(signed-byte 32) 288) 
(al 1en-store 
(msg-localport-op 
(Msgize-f rom-STSGetStr1ng-op (alien-value from))) 
port *ReceivePort*) 
(setq gr 

(receive f rom-STSGetStr1ng recelve-waittime localpt 
recelvelt)) 
(cond ((not (eql gr success)) 
NIL 

(return gr)) 
((- 

(access-msg-1d 

(Msgize-from-STSGetString-op (alien-value from))) 
2906) 
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(cond ((■ 

(access- typetypel-typename 
(msg-retcode-typetypei-6p 
(Msg1ze-f rom-STSGetStr1ng-op 
(alien-value from)))) 

1) 

(setq gr 

(access-msg-retcode 
(Msg1ze-f rom-STSGetString-op 
(alien-value from))))) 

(t 
NIL 

(return badreply))) 
(cond ((eql 

(access- typetypel-typename 
(f rom-STSGetString-R_e_s_u_l_t-typetypeI-op 
(alien-value from))) 

0) 

(setq R_e_s_u_l_t 

(access-f rom-STSGetStr1ng-R_e_s_u_l_t 
(alien-value from)))) 

(t 
NIL 

(return BADREPLY))) 

NIL 

(return (values R_e s_u_l_t))) 
(t 
NIL 

(return 
(user-alternate-return 
(Msg1ze-f rom-STSGetStr1ng-op (alien-value from))))))) 

(t 
NIL 

(return gr)))))) 
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;;; STSPutChar — public 

;;; User-side message Interface. 

(defun STSPutChar (Remote_Port ch) 
"The user side of message STSPutChar" 
(let ((send-maxwalt 0) 
(send-option 0)) 
(al1en-b1nd ((to to-STSPutChar to-STSPutChar)) 
(al 1en-store 

(msg-remoteport-op (Msgize-to-STSPutChar-op (alien-value to))) 
port Remote_Port) 

(alien-store (to-STSPutChar-ch-op (alien-value to)) string-char 
ch)) 

(send to-STSPutChar send-maxwalt send-option))) 



;;; STSPutStrlng — public 

t t t 

;;; User-side message Interface. 

t t t 

(defun STSPutStrlng (Remote_Port s) 

"The user side of message STSPutStrlng" 
(let ((send-maxwalt 0) 
(send-option 0)) 
(alien-bind ((to to-STSPutStr1ng to-STSPutStr1ng)) 
(al ien-store 

(msg-remoteport-op (Msg1ze-to-STSPutStr1ng-op (alien-value to))) 
port Remote_Port) 

(alien-store (to-STSFutStrlng-s-op (alien-value to)) 
simple-string s)) 
(send to-STSPutString ssnd-maxwalt send-option))) 



;;; STSFlushlnput — public 

;;; User-side message Interface. 

(defun STSFlushlnput (Remote_Port) 

"The user side of message STSFlushlnput" 
(let ((send-maxwait 0) 
(send-option 0)) 
(alien-bind ((to to-STSFlushlnput to-STSFlushlnput)) 
(alien-store 

(msg-remoteport-op (Msg1ze-to-STSFlushInput-op (alien-value to))) 
port Remote_Port)) 
(send to-STSFlushlnput send-maxwait send-option))) 
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STSFlushOutput — public 

User-side remote procedure call Interface. 

(defun STSFlushOutput (Remote_Port) 

"The user side of remote procedure STSFlushOutput" 
(prog ( (send-wa1tt1me 0) 

(sond-option 0) 

(recelve-walttime 0) 

gr) 

(a!1en-b1nd ((to to-STSFIushOutput to-STSFlushOutput)) 
(al 1en-store 
(msg-remoteport-op 

(Msg1ze-to-STSFlushOutput-op (alien-value to))) 
port Remote_Port) 
(setq gr 

(TS-send (Msg1ze-to-STSFlush0utput-op (alien-value to)) 
to-STSFlushOutput send-wa1tt1me send-optlon) ) ) 
(al1en-b1nd ((from f rom-STSFlushOutput f rom-STSFlushOutput)) 
(cond ((eql gr success) 
(alien-store 
(msg-msgsize-op 

(Msg1ze-f rom-STSFlushOutput-op (alien-value from))) 
(s1gned-byte 32) 28) 
(al 1en-store 
(msg-localport-op 

(Msg1ze-f rom-STSFlushOutput-op (alien-value from))) 
port *Rece1vePort*) 
(setq gr 

(receive f rom-STSFlushOutput rece1ve-wa1tt1me 
localpt recelvelt)) 
(cond ((not (eql gr success)) 
NIL 

•(return gr)) 
((- 

(access-msg-1d 
(Msg1ze-f rom-STSFlushOutput-op (allan-value from))) 
2910) 
(cond ((■ 

( access- typetypel-typename 
(msg-retcode-typetype1-op 
(Msg1ze-f rom-STSFl ushOutput-op 
(alien-value from)))) 

1) 

(setq gr 

(access-msg-retcode 
(Msg1ze-f rom-STSFl ushOutput-op 
(alien-value from))))) 

(t 
NIL 

(return badreply))) 

NIL 

(return (values))) 
(t 
NIL 

(return 
(user-al ternate-return 

(Msg1ze-f rom-STSFl ushOutput-op (alien-value from))))))) 

(t 
NIL 

(return gr)))))) 
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;;; STSChangeEnv public 

;;; User-side message Interface. 

(defun STSChangeEnv (R8mote_Port env) 
"The user side of message STSChangeEnv" 
(let ((send-maxwalt 0) 
(send-option 0)) 
(al1en-b1nd ((to to-STSChangeEnv to-STSChangeEnv)) 
(al 1en-store 

(msg-remoteport-op (Msg1ze-to-STSChangeEnv-op (alien-value to))) 
port Remote_Pcrt) 

(alien-store (to-STSChangeEnv-env-op (alien-value to)) port env)) 
(send to-STSChangeEnv send-maxwait send-option))) 



;;; STSGrabWIndow — public 

;;; User-side remote procedure call Interface. 

9 9 t 

(defun STSGrabWIndow (Remote_Port kPort) 

"The user side of remote procedure STSGrabWIndow" 
(prog (R_e_s_u_l_t 

(send-wa1tt1me 0) 

(send-option 0) 

(receive-waittlme 0) 

gr) 

(alien-bind ((to to-STSGrabW1ndow to-STSGrabW1ndow)) 
(alien-store 

(msg-remoteport-op (Msgize-to-STSGrabW1ndow-op (alien-value to))) 
port Romote_Port) 

(al ian-store (to-STSGrabWindow-kPort-op (alien-value to)) port 
kPort) 

(setq gr 

(TS-send (Msgize-to-STSGrabWIndow-op (alien-value to)) 
to-STSGrabW1ndow send-wa1tt1me send-option))) 
(alien-bind ((from f rom-STSGrabW1ndow f rom-STSGrabWindow) ) 
(cond ((eql gr success) 
(al ien-store 
(msg-msgs1ze-op 

(Msgize-f rom-STSGrabWindow-op (alien-value from))) 
(s1gned-byte 32) 36) 
(al ien-store 
(msg-localport-op 
(Hsgize-f rom-STSGrabW1ndow-op (alien-value from))) 
port *Rece1vePort*) 
(setq gr 

(receive f rom-STSGrabWindow receive-walttima localpt 
rsceivoit)) 
(cond ((not (eql gr success)) 
NIL 

(return gr)) 
((- 

(access-msg-1d 
(Msg1ze-f rom-STSGrabW1ndow-op (alien-value from))) 
2912) 
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(cond ((■ 

( access- typetypel-typename 
(msg-rotcode-typetype1-op 
(Msg1ze-f rom-STSGrabWIndow-op 
(alien-value from)))) 

1) 

(setq gr 

(access-msg-retcode 
(Msg1ze-f rom-STSGrabWindow-op 
(alien-value from))))) 

(t 
NIL 

(return badreply))) 
(cond ((eql 

(access- typetypel-typename 
(f rom-STSGrabW1ndow-R_e_s_u_l_t-typetypeI-op 
(alien-value from))) 

6) 

(setq R_e_s_u_1_t 

(accass-f rom-STSGrabW1ndow-R_e_s_u_l_t 
(alien-value from)))) 

(t 
NIL 

(return BADREPLY) ) ) 

NIL 

(return (values R_e_s_u l_t))) 
(t 
NIL 

(return 

(user-alternate- re turn 
(Msg1ze-f rom-STSGrabW1ndow-op (alien-value from))))))) 

(t 
NIL 

(return gr)))))) 



;;; STSPutCharArray — public 

tit 

User-side message Interface. 

t t i 

(defun STSPutCharArray (Remote_Port chars char_count flrstCh lastCh) 
"The user side of message STSPutCharArray" 
(let ((send-maxwalt 0) 
(send-option 0)) 
(al1en-b1nd ((to to-STSPutCharArray to-STSPutCharArray)) 
(al 1en-store 
(msg-remoteport-op 

(Msg Ize-to-STSPutCharArray-op (alien-value to))) 
port Remote_Port) 
(al ien-store 

(to-STSPutCharArray-chars-TypeNumObjects-Op (alien-value to)) 
(s1gned-byte 32) char_count) 
(alien-store (to-STSPutCharArray-chars-op (alien-value to)) 

system-area-pointer chars) 
(alien-store (to-STSPutCharArray-f 1rstCh-op (alien-value to)) 

(s1gned-byte 16) firstCh) 
(alien-store (to-STSPutCharArray-lastCh-op (allon-value to)) 
(s1gned-byte 16) lastCh)) 
(send to-STSPutCharArray send-maxwalt send-option))) 
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;;; TSAsynch -- Internal 
1 1 » 

;;; User-side asynchronous message dispatching function. 

(defun TSAsynch (msg) 

"User-side asynchronous message dispatching function." 
(al1en-b1nd ((al1en-msg msg msg)) 

(case (access-msg-id (alien-value al1en-msg)) 
(t badmsgld)))) 

;;; User-Alternate-Return — Internal 

;;; User-side alternate return dispatching function. 

(defun user-alternate-return (msg) 

"User-side alternate return dispatching function." 
(al1en-b1nd ((al1en-msg msg msg)) 

(case (access-msg-1d (alien-value al1en-msg)) 
(t badreply)))) 



(export 

'(TS-In1t TSAsynch STSOpen STSOpenWindow STSFullOpen STSFul !0penW1ndow 
STSFullLlne STSGetChar STSGetString STSPutChar STSPutStrlng STSFlushlnput 
STSFlushOutput STSChangeEnv STSGrabWindow STSPutCharArray)) 



1 1 .2.6. TsMsgDefs.slisp 

This file contains the Accent Lisp message definitions and is for compilation only. 
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-•-L1sp-«- 

Matchmaker generated msg definitions file for TS 



THIS FILE SHOULD NOT BE HAND EDITED 

To change this Interface, edit the Interface matchmaker 
file and run 1t through matchmaker to generate this file. 



(1n-package "TSDEFS") 
(use-package "BUILTINDEFS") 
(use-package "MMINTERNALDEFS" ) 

(use-package "SAPPHDEFSDEFS") 

(use-package "ACCINTDEFS") 

(defoperator (Msg1ze-to-STSOpen-op msg) ((specific to-STSOpen)) ' 

(al1en-1ndex (alien-value , specific) (bits 0) (bits 304))) 

(defoperator (to-STSOpen-1ze-op to-STSOpen) ((generic msg)) • 

(alien-index (alien-value , generic) (bits 0) (bits 304))) 



(defoperator (to-STSOpen-vp-op port) ((f to-STSOpen)) ' 

(alien-Index (alien-value , f) (bits 208) (bits 32))) 

(defmacro Access-to-STSOpen-vp (r) 

(alien-access (to-STSOpen-vp-op , r) port)) 

(defoperator (to-STSOpen-vp-TypeTypel-op (s1gned-byte 32)) ((f to-STSOpen)) 
(al1en-1ndex (alien-value , f) (bits 176) (bits 32))) 



(defoperator (to-STSOpen-env-op port) ((f to-STSOpen)) ' 

(al1en-1ndex (alien-value , f) (bits 272) (bits 32))) 

(defmacro Access-to-STSOpen-env (r) 

(alien-access (to-STSOpen-env-op , r) port)) 

(defoperator (to-STSOpen-anv-TypeTypel-op (s1gned-byte 32)) ((f to-STSOpen)) 
(alien-Index (alien-value , f) (bits 240) (bits 32))) 

(defoperator (Msgize-f rom-STSOpen-op msg) ((specific f rom-STSOpen)) • 

(al1en-1ndex (alien-value , specific) (bits 0) (bits 288))) 

(defoperator (f rom-STS0pen-1ze-op f rom-STSOpen) >( (generic msg)) ' 

(alien-Index (alien-value , generic) (bits 0) (bits 288))) 



(defoperator (f rom-STSOpen-R_e_s_u_l_t-op port) ((f f rom-STSOpen)) ' 
(alien-index (alien-value , f) (bits 256) (bits 32))) 

(defmacro Access-f rom-STSOpen-R_e_s_u_l_t (r) 
i 

(alien-access (from-STSOpen-R_e_s_u_l_t-op , r) port)) 
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(def operator (f rom-STSOpen-R_e_s_u_l_t-TypeTypeI-op (s1gned-byte 32)) 
((f from-STSOpan)) ' 

(alien-index (alien-value , f) (bits 224) (bits 32))) 

(defoperator (Msgize-to-STS0penW1ndow-op msg) ((specific to-STSOpenWindow)) * 
(alien-Index (alien-value , specific) (bits 0) (bits 304))) 

(defoperator (to-STSOpenWindow-ize-op to-STSOpenWindow) ((generic msg)) ' 
(alien-index (alien-value , generic) (bits 0) (bits 304))) 



(defoperator (to-STSOpenWindow-w-op port) ((f to-STSOpenW1ndow)) ' 
(alien-index (alien-value , f) (bits 208) (bits 32))) 

(defmacro Access-to-STS0penW1ndow-w (r) 

(alien-access (to-STSOpenWindow-w-op , r) port)) 

(defoperator (to-STS0penW1ndow-w-TypeTypeI-op (s1gned-byte 32)) 
((f to-STSOpenWindow)) « 

(al1en-1ndex (alien-value , f) (bits 176) (bits 32))) 

(defoperator (to-STSOpenWIndow-env-op port) ((f to-STSOpenWindow)) • 
(al1en-1ndex (alien-value , f) (bits 272) (bits 32))) 

(defmacro Aceess-to-STSOpenWindow-env (r) 

(alien-access (to-STSOpenWindow-env-op , r) port)) 

(defoperator (to-STSOpenVHndow-env-TypeTypel-op (signed-byte 32)) 
((f to-STSOpenWindow)) ' 

(alien-Index (alien-value , f) (bits 240) (bits 32))) 

(defoperator (Hsg1ze-f rom-STSOpenWindow-op msg) ((specific f rom-STSOpenWindow)) ' 
(alien-index (alien-value , specific) (bits 0) (bits 288))) 

(defoperator (f rom-STSOpenWindow-1ze-op from-STSOpenWindow) ((generic msg)) ' 
(alien-index (alien-value , generic) (bits 0) (bits 288))) 



(defoperator (f rom-STS0penW1ndow-R_e_s_u_l_t-op port) ((f f rom-STSOpenWindow)) • 
(alien-Index (alien-value , f) (bits 256) (bits 32))) 

(defmacro Access-f rom-STS0penW1ndow-R_e_s_u_l_t (r) 

(alien-access (f rom-STS0penWindow-R_e_s_u_1_t-op , r) port)) 
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(defoperator (f rom-STS0penW1ndow-R_e_s_u_l_t-TypeTypeI-op (s1gned-byto 32)) 
((f f rom-STS0penW1ndow)) ' 

(al1en-1ndex (alien-value , f) (bits 224) (bits 32))) 

(defoperator (Msgize-to-STSFullOpen-op msg) ((specific to-STSFullOpen)) ' 
(alien-index (alien-value , specific) (bits 0) (bits 2480))) 

(defoperator (to-STSFullOpen-1ze-op to-STSFul lOpen) ((generic msg)) ' 

(alien-Index (alien-value , generic) (bits 0) (bits 2480))) 



(defoperator (to-STSFullOpen-vp-op port) ((f to-STSFullOpen)) 1 

(al1en-1ndex (alien-value , f) (bits 208) (bits 32))) 

(defmacro Access-to-STSFullOpen-vp (r) 

(alien-access (to-STSFullOpen-vp-op , r) port))- 

(defoperator (to-STSFul lOpen-vp-TypeTypel-op (s1gned-byte 32)) 
((f to-STSFul lOpen)) • 

(alien-Index (alien-value , f) (bits 176) (bits 32))) 

(defoperator (to-STSFullOpen-env-op port) ((f to-STSFullOpen)) ' 

(alien-index (alien-value , f) (bits 272) (bits 32))) 

(defmacro Access-to-STSFullOpen-env (r) 

(alien-access (to-STSFullOpen-env-op , r) port)) 

(riofoperator (to-STSFullOpen-env-TypeTypel-op (s1gned-byte 32)) 
((f to-STSFul lOpen)) • 

(al1en-1ndex (alien-value . f) (bits 240) (bits 32))) 

(defoperator ( to-STSFullOpen-fontName-op (perq-str1ng 265)) ((f to-STSFul lOpen)) 
• (al1en-1ndex (alien-value , f) (bits 336) (bits 2048))) 

(defmacro Access-to-STSFullOpen-fontNarae (r) 

(alien-access (to-STSFullOpen-fontName-op , r) simple-string)) 

(defoperator (to-STSFullOpen-fontName-TypeTypel-op (s1gned-byte 32)) 
((f to-STSFul lOpen)) ' 

(al1en-1ndex (alien-value , f) (bits 304) (bits 32))) 

(defoperator (to-STSFullOpen-doWrap-op boolean) ((f to-STSFul lOpen)) * 
(alien-index (alien-value , f) (bits 2416) (bits 1))) 
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(defmacro Access-to-STSFullOpen-doWrap (r) 
i 

(alien-access (to-STSFullOpen-doWrap-op , r) boolean)) 

(defoperator (to-STSFullOpen-doWrap-TypeTypel-op (slgned-byte 32)) 
((f to-STSFullOpen)) * 

(al1en-1ndex (alien-value , f) (bits 2384) (bits 32))) 

(defoperator (to-STSFull0pen-d1spPages-op (slgned-byte 16)) ((f to-STSFul lOpen)) 
* (alien-index (alien-value , f) (bits 2464) (bits 16))) 

(defmacro Access-to-STSFullOpen-dispPages (r) 

(alien-access (to-STSFul !0pen-d1spPages-op , r) (slgned-byte 16))) 

(defoperator (to-STSFullOpen-dlspPages-TypeTypel-op (slgned-byte 32)) 
((f to-STSFul lOpen)) • 

(alien-index (alien-value , f) (bits 2432) (bits 32))) 

(defoperator (Msg1ze-f rom-STSFullOpen-op msg) ((specific f rom-STSFul lOpen)) ' 
(alien-index (alien-value , specific) (bits 0) (bits 288))) 

(defoperator (f rom-STSFullOpen-ize-op f rom-STSFullOpen) ((generic msg)) * 
(alien-index (alien-value , generic) (bits 0) (bits 288))) 



(defoperator (f rom-STSFullOpen-R_e_s_u_l_t-op port) ((f f rom-STSFullOpen)) f 
(alien-index (alien-value , f) (bits 256) (bits 32))) 

(defmacro Access-f rom-STSFul 10pen-R_e_s_u_l_t (r) 

(alien-access (f rom-STSFull0pen-R_e_3_u_l_t-op , r) port)) 

(defoporator (from-STSFullOpen-R_e_s_u_l_t-TypeTypaI-op (signod-byto 32)) 
((f frosn-STSFullOpen)) ' 

(alien-index (alien-value , f) (bits 224) (bits 32))) 

(defoparator (Msgize-to-STSFullOpenWindow-op msg) 
((specific to-STSFul lOpenWindow)) • 

(alien-index (alien-value , specific) (bits 0) (bits 2430))) 

(defoperator (to-STSFul l0penW1ndow-ize-op to-STSFul lOpenWindow) ((generic msg)) 
(alien-index (alien-value , generic) (bits 0) (bits 2480))) 



(defoperator (to-STSFullOpenWindow-w-op port) ((f to-STSFul lOpenWindow)) ' 
(alien-index (alien-value , f) (bits 208) (bits 32))) 

(defmacro Access-to-STSFull0penW1ndow-w (r) 

(alien-access (to-STSFul lOpenWindow-w-op , r) port)) 

(defoperator (to-STSFullOpenWindow-w-TypeTypel-op (signed-byte 32)) 
((f to-STSFul lOpenWindow)) ' 

(alien-index (alien-value , f) (bits 176) (bits 32))) 

(defoperator (to-STSFul !0penW1ndow-env-op port) ((f to-STSFul lOpenWindow)) • 
(alien-index (alien-value , f) (bits 272) (bits 32))) 

(defmacro Access-to-STSFullOpenVHndow-env (r) 

(alien-access ( to-STSFul !0penW1ndow-env-op , r) port)) 
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(defoperator (to-STSFull0penW1ndow-env-TypeTypeI-op (s1gned-byte 32)) 
((f to-STSFullOpenWindow)) • 

(al1en-1ndex (alien-value , f) (bits 240) (bits 32))) 

(defoperator (to-STSFullOpenW1ndow-fontName-op (perq-str1ng 266)) 
((f to-STSFul I0penw1ndo«0) ' 

(al1en-1ndex (alien-value , f) (bits 336) (bits 2048))) 

(defmacro Access-to-STSFull0penW1ndow-fontName (r) 
i 

(alien-access (to-STSFull0penW1ndow-fontName-op , r) simple-string) ) 

(defoperator (to-STSFullOpenWindow-fontName-TypeTypel-op (s1gned-byte 32)) 
((f to-STSFull0penW1ndow)) • 

(al1en-1ndex <al1en-value , f) (bits 304) (bits 32))) 

(defoperator (to-STSFul l0penW1ndow-doWrap-op boolean) ((f to-STSFul lOpenWIndow)) 
■ (al1en-1ndex (alien-value , f) (bits 2416) (bits 1))) 

(defmacro Access-to-STSFullOpenWindow-doWrap (r) 

(alien-access (to-STSFull0penW1ndow-doWrap-op , r) boolean)) 

(defoperator (to-STSFull0penW1ndow-doWrap-TypeTypeI-op (s1gned-byte 32)) 
((f to-STSFul lOpenWIndow)) ' 

(al1an-1ndex (alien-value , f) (bits 2384) (bits 32))) 

(defoperator (to-STSFul!OpenWindow-d1spPages-op (s1gned-byte 16)) 
((f to-STSFul lOpenWIndow)) • 

(al1en-1ndex (alien-value , f) (bits 2464) (bits 16))) 
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(defmacro Access-to-STSFullOpenVMndow-dispPages (r) 

(alien-access (to-STSFull0penWindow-d1spPages-op , r) (s1gned-byte 16))) 

(defoparator (to-STSFull0penW1ndow-dispPages-TypeTypeI-op (s1gned-byte 32)) 
((f to-STSFullOpenW1ndow)) ' 

(alien-index (alien-value , f) (bits 2432) (bits 32))) 

(defoperator (Msg1ze-f rom-STSFull0penW1ndow-op msg) 
((specific from-STSFull0penW1ndow)) ' 

(al1en-1ndex (alien-value , specific) (bits 0) (bits 288))) 

(defoperator (from-STSFullOpenW1ndow-1ze-op f rom-STSFullOpenWindow) 
((generic msg)) ' 

(alien-index (alien-value , generic) (bits 0) (bits 288))) 



(defoperator (from-STSFullOpenW1ndow-R_e_s_u_l_t-op port) 
((f from-STSFullOpenWindow)) * 

(al1en-1ndex (alien-value , f) (bits 266) (bits 32))) 

(defmacro Access-f rom-STSFull0penW1ndow-R_e_s_u_l_t (r) 

(alien-access (f rom-STSFull0penW1ndow-R_e_s_u_l_t-op , r) port)) 

(defoperator (from-STSFullOpenWindow-R_e_s_u_l_t-TypeTypeI-op (signed-byte 32)) 
((f from-STSFullOpenWIndow)) « 

(alien-Index (alien-value , f) (bits 224) (bits 32))) 

(defoperator (Msglze-to-STSFullLine-op msg) ((specific to-STSFullLine)) ' 
(alien-index (alien-value , specific) (bits 0) (bits 176))) 
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(defoperator (to-STSFullL1ne-1ze-op to-STSFullLine) ((generic msg)) ' 

(alien-Index (alien-value , generic) (bits 0) (bits 176))) 

(defoperator (Msg1ze-f rom-STSFull Line-op msg) ((specific f rom-STSFul ILIne) ) 
(al1en-1ndex (alien-value , specific) (bits 0) (bits 272))) 

(defoperator (f rom-STSFullL1ne-1zo-op f rom-STSFullL1ne) ((generic msg)) ' 
(alien-index (alien-value , generic) (bits 0) (bits 272))) 



(defoperator (f rom-STSFul lL1ne-R_e_s_u_l_t-op boolean) ((f f rom-STSFullL1ne)) ' 
(al1en-1ndex (alien-value , f) (bits 256) (bits 1))) 

(defmacro Access-f rom-STSFull L1ne-R_e_s_u_l_t (r) 

(alien-access (f rom-STSFull L1ne-R_e_s_u_l_t-op , r) boolean)) 

(defoperator (f rom-STSFul lL1ne-R_e_s_u_l_t-TypeTypeI-op (s1gned-byte 32)) 
((f from-STSFullL1ne)) ' 

(alien-index (alien-value , f) (bits 224) (bits 32))) 

(defoperator (Msg1ze-to-STSGetChar-op msg) ((specific to-STSGatChar) ) • 
(alien-index (alien-value , specific) (bits 0) (bits 176))) 

(defoperator (to-STSGetChar-ize-op to-STSGetChar) ((generic msg)) ' 

(alien-Index (alien-value , generic) (bits 0) (bits 176))) 

(defoperator (Msg1ze-f rom-STSGetGhar-op msg) ((specific f rom-STSGotChar)) 1 
(alien-index (alien-value , specific) (bits 0) (bits 272))) 

(defoperator (f rom-STSGetChar-1ze-op f rom-STSGetChar) ((generic msg)) • 
(alien-index (alien-value , generic) (bits 0) (bits 272))) 



(defoperator (f rom-STSGetChar-R_e_s_u_l_t-op string-char) ((f f rom-STSGetChar)) f 
(alien-Index (alien-value , f) (bits 256) (bits 8))) 

(defmacro Access-f rom-STSGetChar-R_e_s_u_l_t (r) 

(alien-access (f rom-STSGetChar-R_e_s_u_l_t-op , r) string-char)) 

(defoperator (f rom-STSGetChar-R_e_s u_l_t-TypeTypeI-op (s1gned-byte 32)) 
((f from-STSGetChar)) ~ 

(al1en-1ndex (alien-value , f) (bits 224) (bits 32))) 

(defoperator (Msg1ze-to-STSGetStr1ng-op msg) ((specific to-STSGetStr1ng)) * 
(alien-index (alien-value , specific) (bits 0) (bits 176))) 

(defoperator (to-STSGetStr1ng-1ze-op to-STSGetStr1ng) ((generic msg)) ' 
(al1en-1ndex (alien-value , generic) (bits 0) (bits 176))) 

(defoperator (Msg1ze-f rom-STSGetString-op msg) ((specific f rom-STSGotStr1ng)) 1 
(al1en-1ndex (alien-value , specific) (bits 0) (bits 2304))) 

(defoperator (f rom-STSGetStr1ng-1ze-op f rom-STSGetString) ((generic msg)) ' 
(al1en-1ndex (^li^fi^value , generic) (bits 0) (bits 2304))) 
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